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序 


C 言語は，今後に可能性を秘めたコンピュータ言語として，広く知られるよ 
ゲになってきました.この言語の特長のひとつは，同じ高級言語である PASCAL 
などに比べると，よりハードウヱアに即した低レベルの記述ができるというこ 
とです.つまり従来ではアセンブラでなければ書けないといわれていた，機械 
に密着した操作を可能にしています.その例としては， C 言語によって UNIX 
という 0 S が作成されたことがあげられます. 

C 言語はアセンブラに比べた場合に，プログラムの構造化がしやすく，高い 
移 t 直性を有しています.移樋:性という面から見た場合，アセンブラはどうして 
も CPU に依存してしまう傾向があるのに対し， C 言語はコンパイラが作りやす 
く， CPU を選ばずに他の 0 S へ比較的簡単に移植を行うことができるからです. 

このような優れた特長を持つ C 言語は，近年とみに注目を集めるようになっ 
てきました.ところが， C 言語を使ったプログラムのソースは，小さなサンプ 
ルプロ グラムはあっても，実用に耐えうる ツールやユーテイ リ テイ となると未 
だ 公開されていない のが 実状です.例外として UNIX のソースが ありますが， 
一般には見ることが困難です. 

本書は， C 言語の入門書をひと通り読まれた方やこれから c 言語を学ぼうと 
する方のために，本格的なプログラムを公開する目的で書かれたものです. 

「第1部パソコン C 言語入門編」では， UNIX の開発に伴い産み出された 
C 言語をパソコン （0 S ) 上で使った場合の作業環境の実際や，各 0 S および各 
CPU と C 言語との相性や使い勝手を解説するほか，各処理系別のベンチマーク 
テストのデータを公開しています. 

「第2部 C トレーニングサンプル編」では，実際にツールを使う前のトレ— 
ニングとして，主要なコマンドや関数がプログラム上でいかに使われているの 
かを示し，初歩の C プログラミングテクニックを紹介しました. 

「第3部 C ツール編」では， CP / M -80, MS - DOS ，0 S -9 別に実用ツールを 

公開しています•いくつかのツールには，プログラム中に子細な注釈を記し， 
アルゴリズムを把握する一助になればと考えました. 

最後に，本書の上梓に際して，第1部の原稿を寄せて戴いた小幡広昭氏およ 
び プログラム 作成に日夜邁進して下さったソフトウェアスタッフ諸氏に 謹んで 
感謝の意を表します.また，ソフトを提供して姐いたソフトウェア•インター 
ナショナル（株）， マイクロ ソフトウェア（株），（株） サザン•ハ。 シフ イツク およ 
びデイ ジー ホイ—ルブリン タを提供して戴いた ブラザー 販売（株）の方々に紙上 
を借りてお礼を申し上げます. 


1984年 9月 


C 言語研究会 


屯くじ 
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UNIX と C の作業環境 


小幡広昭 


UNIX のツール 


UNIX という 0 S を説明するときに，他の OS と比べて使い勝手がよいという 
ことが強調されます.その理由の 1 つは， UNIX は豊富なツール類が機能的に 
分けられていて，組み合わせて使えるように設計されているからです. 

UNIX では単純な機能を持つものを結合して目的を達成しようというろ•え方 
があり，ごく単純な C の関数から ファイル •システムやシステム. コールとい 
った高度なものに至るまで，この考え方は n •かれています.しかも，それぞれ 
の機能は同レベルの間で横方⑹にも，縦方向にも組み合わせやすいように細か 
な配慮がなされています. 

このようにソフトウェアを何かの目的を達成するための道具としてとらえる 
という考え方から， UNIX ではツールという言葉が使われます.出来合いのツ 
—ルを活用し，他の人にも使ってもらえるようなツールを設計することにより， 
目的を達成してきたわけです. UNIX に今備わっているコマンドや機能の多く 
は，あらかじめ用意されていたのではなく， UNIX 自身を作り上げていく過程 
や， UNIX を使って何か仕事をしようとする過程で，ツールという考え方に基 
づいて追加や修正，選択されてきたものです.つまり UNIX のソフトウェアは， 
UNIX 自身を使って作成され保守されてきたのです. 

UNIX のソフトウェアはシステム部も含め大部分が C で記述されています. 
そのため UNIX を使ってのプログラム開発能力は，現在の UNIX 自身のプログ 
ラムや UNIX 上で動くプログラムを作るくらいは，充分であるということがい 
えます. 

UNIX は，このように成長していくことを前提として設計されているので， 
新しいコマンドや機能を容易に受け入れられるように作られています.つまり 
UNIX を使う人は，様々な レベルで 自分なりの ツールを 作り，システムを作リ 
上げていくことができるのです. 

ツールとして役に立つプログラムの書き方や，その設計と実現の方法を具体 
的なプログラム例を挙げて説明した本があります.大変参考になると思います 
すので，ぜひ一度読んでみてください. 




UNIX と C の作業環境 


B.W.Kernigham, P.J.Plauger「Software Tools」：Addison-Wesley( 1976) 

邦訳木村泉訳「ソフトウヱア作法」：共立出版 （1981) 

UNIX のツールと C 言語 

UNIX の多くのツールは C と密接な関係にあります. UNIX のツールのうち 
で特定のプログラミング言語のための開発ツールは， C 言語のためのものがほ 
とんどを占めています.これらのツールには， C のプログラム自身を作るため 
のものや， コンパイル， リンク， エディット，デバッグ 等のための便利なツー 
ルがたくさん用意されています.また，ツールを動作させるために一種のプロ 
グラムのようなものが必要な場合には，その多くが C と似た形式で与えられま 
す.また UNIX のツールは，ほとんどすべてが C で書かれていますので，機能 
を拡張したり，他のプログラムの参考にするためには，どうしても C の理解が 
必要となります. 

このように， UNIX システムでは， C でのプログラミングが前提と思われる 
ような構成がとられています. C でプログラミングをしていくことにより ， U 
NIX の便利なツール類を使いこなせるようになれば， UNIX をさらに深く理解 
することができるようになります.そのためには， UNIX のソース自身がとても 
参考になるのですが，残念ながらソース契約者にのみ公開されるため，一般の 
人にとっては機会は非常に限られています.後に紹介されているプログラム集 
が，少しでも役に立てばと思います. 

パーソナル•コンピュータと UNIX 

UNIX のコマンドの多くは， UNIX 独自の機能を生かして働くように作られ 
ています.たとえば，フィルタと呼ばれるものがそれです.これはパイプライ 
ン機能を使うことによって，はじめてすっきりとした概念となります. UNIX 
にはパイプ機能の他にも，階層構造のファイル•ディレクトリ，標準人出力に 
よるリダイレクション，シェルとシェル•スクリプトといった，今までのパーソ 
ナル•コンピュータの OS にはなかった便利な機能があります. 

そのようなことから最近の パーソナル•コン ピュータの OS は， UNIX の便利 
さの恩恵にあずかろうと，部分的にその機能を取り込んで UNIX-like にする 
傾向があります.これらには，最初から UNIX-like として登場したものや，最 
初は考えに人れていた だけで，バージョン .アップの時点でその機能を取り入れ 
ていったもの 等， 様々です.完全な UNIX を今の16ビットの マイクロ •コン ピ 
ュータで実現するのは， CPU の性能や周辺装置の能力から，なかなか難しい 
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のですが， NS 16032， M 68000， Z 8000, i 8086 等の CPU を使った製品では， 

次々と発表されてきてぃます. 

現在，能力の低ぃシステムで UNIX を動作させるのに問題となってぃる主な 
内容は， CPU の処理速度，特に CPU のアーキテクチャで高級言語に関する部分 
が弱ぃこと，メモリ•マネージメント機構と仮想メモリの取り扱ぃ，そして安価 
で信頼性の高ぃ大容量のディスクとその実効データ転送速度等です.これらの 
問題が，ある程度解決されれば UNIX 程度の OS がわりあぃ簡単にパーソナル • 
レベルで使えるようになると思われます. 

シエノレ 

シェルも UNIX のツールの1つで，ログインしてぃる間は，ターミナルごと 
に必ず1つは走ってぃるプロセス（プログラム）です.シェルは，与えられる 
コマン ドによってプロセスを生成するときに，フ ァイルの オープンやプロセス 
間のパイプの生成等をあらかじめ行ぃます.これが I / O のリダイレクシヨンや 
パイプと呼ばれるシェルの機能です.さらにシェルには，シェル•コマンドの 
手続きをファイルに書ぃておぃて実行させる，シヱル.スクリプト機能があり 
ます.また特殊文字を使って，タイプの手間を省ぃたり，ハ。ターンに合う名前 
を選び出したりすることができ，ユーザに快適な作業環境を提供してくれます. 

シェル自身，1つのプロセスですから，ユーザが自由に取り替えたり，作り 
替えたりすることができます.たとえば， Bourne - シヱル （ sh ) より強力な C - 
シェル （ csh ) は，カリフォルニア大学パ'—クレー校で作られたものですが， 
このシェルには，ヒストリ（入カコマンドの履歴リスト），エイリアス （ alias : 
コマンドの別名付け機能），ジョブの途中での停止/新しぃジョブの起動/バ 
ックグラウンドとフォアグラウンドの移動/ジヨブの再開などの機能，シェル 
•スクリプトにつぃての構文の強化等，多くの機能追加がなされてぃます•こ 
れらの機能の多くは，ユーザに，より快適な作業環境を提供するために付け加 
えられたものです. 

プログラム•ジェネレータ 

UNIX には単純な機能の ツール もたくさんありますが，ここでは，かなり高 
級な ツールで ある yacc ， lex，awk について 説明し ましよう. 

yacc とぃう名前は，「もう1つのコンパイラ.コンパイラ」とぃう意味の頭 
文字をとったものです.つまり UNIX には，以前にすでにコンパイラ•コンパ 
イラがあったわけで，このツールはその後に作られたものなのです.しかしな 
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がら，現在コンハ。イラ.コンハ。イラと呼んだ場合，それは yacc のことを指しま 
す.本来のコンパイラ•コンパイラに取って代ったわけです.従って現在では 
「もう1つの……」という名前はあまり意味がなくなってしま.いましたが ， UNIX 
は前にも述べたとおリ，プログラムの作成者が適当な名前を付けて追加，成長 
してきたので，コマンド名にはあまりこだわる必要はありません.ちなみに， 
この後で説明する awk は，三人の作成者の.頭文字からできています. 

yacc は，言語仕様の記述されたファイルを人力し，この仕様を満す構文解析 
のた めの C のソース ••プログラムを出力します.構文解析プログラムは，コン 
パイラやインタープリタ等のプログラムの一部分として使用されます. yacc を 
使って今までに作られたプログラムには，後で述べるポータブル C コン八イラ 
の他に， APL , Pascal , Ratfor , 電卓言語，簡易言語，文書検索システム ， Fo 
rtran デバッキング • システム等，たくさんあります. 

lex は yacc と同じように，字旬解析部の C プログラムを生成します.コンパ 
イラの字句解析部での表現の認識は， lex によって生成される決定性有限オート 
マトンによって行われます. 

yacc と lex はかなり高級なツールですが， UNIX 上で実際に動かしながら学ぶ 
ことができるので， コンパイ ラ等を作る時の参考となります. yacc と lex を使っ 
たプログラムの1つに awk があります. awk はパターン走査処理言語で，正規 
表現で指定されるパターンに対して処理する指示を， C に似た制御構造で与え 
ることにより，データを処理するプログラムです • awk はその用途から，レポ 
—卜•ジェネレータとも呼ばれています. 

図1 yacc と lex を使ったプログラムの作成例 


字句規則を 
記述した 

テし夕•ファイル 


文法規則を 

記述した 
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図2 awk の使われ方 
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開発言語としての c 


小幡広昭 

UNIX 上で， C で記述するクロス • ソフトウェアの開発を行う場合には， 
今までに説明した ツールの 他にも便利なものがたくさんあります.ここでは， 
lint ， make ， sdb ， vi について説明します. 

C プログラムのチェックを行う lint 

lint は， C のソース•プログラムを調べて，八グや不明瞭な点を検出するツ 
ールです. lint は ， C コン ハ。イラよりも厳密にデータの型のチェックを行い， 
異なるマシンやオペレーティング • システム間の移植上の問題点を洗い出しま 
す.さらにオプションでは，厳密にいえば合法ではあるが，無駄が多かったり， 
エラーを発生しやすい各種の構造も検出します.また，ライブラリについては， 
一貫性のチュックが行えます. 

コンパイラとは別の lint が文法的なチェックを代行するため， C コンハ。イラ 
はその部分を省略することができ，高速にコンハ。イルを実行することができま 

す. 


プログラム保守に便利な make 

一般に，ある程度大きなプログラムを作る場合は，いくつかのモジュールに 
分けて作成し，別々にコンパイルして，その後リンクするという方法が取られ 
ます.この時，ソースの一部を変更した場合に，どのファイルを再処理，また 
は再コンパイルすればよいのか分からなくなってしまうことがあります.この 
ような時に make が大変役に立ちます. 

また，1つのプログラムを小さなプログラム単位のファイルに分けた場合， 
あるものには全く別の処理が必要なこともあります.たとえば，図1のように 
プログラムの 一 部をプログラム. ジェネレータ である yacc や lex で生成するこ 
ともあります.また，小さなプログラムのいくつかは，アセンブラで記述され 
ているかも知れません. 

make は，このようなファイルをどのように処理していって最終的なプログラ 
ムに作り上げればよいのかという情報を，あらかじめ記述されているファイル 
から得て.最小限必要な処理だけを行ってプログラムを作り上げてしまいます. 
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たとえば，ヘッダ•ファイルを修正した場合，そのヘッダ•ファイルを使用 
しているすべてのファイルを再コンハ。イルしてくれます.また，いくつかのフ 
ァイルをいろいろな過程で修正していった場合にも， make は結果的に影響の 
あるすベての処理を，忘れずに，しかも誤りなく実行してくれます. 

make は，何らかの処理の結果として作られるファイルの作成された日時と， 
それを作るのに必要なファイルの最終修正日時を比べて処理が必要かどうかの 
判断をします. make コマンドを使うには，ファイル相互の従属関係と処理す 
るのに必要なコマンド列に関する情報を，あらかじめファイルに人れておく必 
要があります. 

C プログラムのデバッガ sdb 

C のプログラムのデバッグに際して必要なのが， sdb シンボル.デバッガで 
す（バークレー版 4.2 bsd では dbx になっています）. sdb は，現在のところ VAX - 
11や68000等の システムの 一部でしか動作していませんが，マイクロコンピュー 
夕のシステムで UNIX が使われることが増えるにしたがい，その必要性から動 
くものが増えてくると思われます. 

sdb は， C プログラムの暴走や違法命令の実行等によって作られるコア•イ 
メージから，ソース，レベルによる関数のトレースや，ブログラム•テストの 
ためのブレークポイントの設定と実行，シングル•ステップの実行，変数内容 
の確認や変更等のデバッグ作業が行えます. 

強力なスクリーン•エディタ vi 

通常，ソース.プログラムの作成や修正には， エディ タが用いられます . vi 
はスクリー ン•エディ タですが， / etc/termcap というファイルに夕ーミナルの 
機能を登録しておくことにより，様々な種類のターミナルで使用することがで 
きます. 

たとえばシリアル I/O ポートを持つマイクロコンピュータ自身を， UNIX シ 
ステムのターミナルのかわりに使用することもできます.しかも画面の文字数 
は 80 X 24 でなくてもかまいません.この情報も/ etc/termcap に入れておけばい 
いのです. 

vi という エディ タは，実は ex というライン エディ タの編集 モー ドの1つと 
なっています.ですから， vi と ex はファイルを編集中に自由に行き来ができ 
ます. vi より ex のコ.マンドを使った方がより簡単にできるこも多くあるため， 
経験の豊かな ユーザは， vi と ex の コマンド. モードをうまく使い分けています. 
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vi の多くの機能の中で C プログラムの編集に特に便利なものとしては，自動 
字下げ，行全体の左右への一定量の移動，カッコの左右の対応の確認，関数の 
宣言位置までのカーソル移動等があります. 

ポータブル C コン パイラと移植性 

UNIX 上の強力なツールを駆使し，ある程度のクロス•ソフトウェア開発が 
終わった時点で開発用の UNIX を完全に切り離し，それ以降の開発はターゲッ 
卜•マシンのシステムで行うことがよくあります.この場合， UNIX 上のクロ 
ス•コンハ。イラ，クロス•アセンブラ，そしてリンク•エディタを C で記述し 
ておけば，ターゲット•マシンにも，ある程度容易に移植することができます. 

また，このようにすると，その後はどちらのマシンでも C プログラムの口ード 
• モジュールを 生成することができるようになります. 

そのためには UNIX のツ ー ルの1つであるポータブル C コンパイラを使用し 
ます.ポータブル C コンパイラはそれほど効率の良いコードは生成できません 
が，いくつかのメリットがあります.ポータブル C コンハ。イラは， UNIX 上で 
通常使われている C コンパイラのバージョンと高度な互換性があります. 

また，コンパイラ全体の約75%がマシンに独立した部分で，残りの約25%は 
マシンに依存した部分です.この25%の部分を作りかえれば簡単に移植が行え 
ます.ただし，マシンに依存した部分の多くは単純な変換で済みますが，コー 
ドのある一定量は，変換するのが非常に難かしく，かなりの知的努力を必要と 
します. 

ポータブル C コン八イラは，2パスに分割されています.第ーパスが構文解 
析（パーサ）で，第ニパスがコードの生成を行います.出力されるのはアセン 
ブラの ソース •プログラムです.第ーパスの構文解析部には， yacc によって作 
られた C プログラムが使用されます.また，ポータブル C コンパイラは lint プロ 
グラムの主要部分としても使用されています. 

このように，異なるシステム間に高度に互換性のある C コンパイ ラがあれば， 
必要なシステム • コールと ライブラリ関数を用意する ことに よって， C で記述 
されたプログラムの移植性は非常に良くなります.従って，ブログラムの移桢 
性を考えた場合には， コンハ。 イラはなるべくサブセットでなく，しかもライブ 
ラリ関数の仕様等も含めて，なるべく互換性のあるものが望ましいといえます. 
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C とアセンブラ 

c でプログラムを記述する場合，アセンブラを使う必要はほとんどありませ 
ん.特に UNIX 上で実行させるプログラムに関しては，特殊なものを除いて， 
すべてが C だけで記述できます. 

これに対して，夕ーゲット•マシンが OS もなにもない環境であったり，シス 
テムが C に対してサポートしていない場合には，プログラムの一部をアセンブ 
ラで記述する必要があります.たとえば，ソフトウェア割り込みのような特殊 
命令を使う必要がある場合や，ハードウヱア割り込み処理部，さらに CPU のア 
ーキテクチャによっては入出力命令等はアセンブラで記述する必要があります- 
この時， アセンブラで記述する部分を， C の関数として呼べる形にしておけて 
おけば，他の部分は完全に C だけで記述することができます. 

ただし，少しでも処理速度を上げたい場合や，できる限りプログラム容量を 
小さくしたいというようなときには，アセンブラを使わなければならないこと 
もあります.しかしアセンブラで記述するのに比べ， C コンパイラが生成する 
コードの量と質は，他の高級言語ほど大きくはなく，効率もそれほど悪くはあ 
りません.特に，今まで数値計算と制御を高級言語とアセンブラの組合せで行 
っていたような分野では， C だけで大部分を記述できるようになります. 

マイクロコンピュータと C 

マイクロコンピュータの 分野では，短期間のうちに，次々と新しい CPU や周 
辺装置が使えるようになってきました.そのため，ソフトウヱアについては， 
大幅な修正なしに新しいマシンにも移行できる必要性が高まってきています- 

また， 開発終了後のことを考えてみた場合，ハードウェアの変更やソフトウェ 
アの仕様変更に伴う適応性と保守の容易さも，もちろん要求されます. 

このような条件を満すプログラミング言語としては， C のほかにも Pascal ， 
Praxis ， Simula , PL / I そして Ada 等が あるわけです が， 現在のマイクロコン ピ 
ュ ータの 能力と UNIX とい う OS の開発環境を考えると ， C が 最も適しているよ 
うに思われます. 

C の特徴と注意点 

C の特徴である柔軟性や簡潔性，そして移植性等は，プログラミングをする 
人がそれを生かすように，常に心がけていなければなりません.というのは， 

C のこのようにすぐれた特徴は，使い方によっては C の欠点となってしまう恐 
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れもあるからです. 

C はアセンブラのように無防備ではありませんが，どちらかというと，すべ 
てに寛大な言語です.つまり，プログラムの作り方次第で，かなりのことがで 
きるかわりに危険も伴うということです.また，書き方によっては非常に理解 
しにくくもなります.ですから C でプログラミングをする時は，その特徴を理 
解した上で，良いところを生かすように常に気をつけることが大切です. 
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小幡広昭 c 言語研究会 

最近では，数多くのマイクロコンピュータのマシン上で， c のシステムが使 
えます.ここではいくつかの CPU を取り上げ， c との相性についての特徴や問 
題点を見てみることにします. 

Z80 

Z 80では， C との相性で問題となる点がいくつかあります. 

第一に，整数のビット長と，それを扱う CPU の命令の効率が悪いということ 
があげられます. C 言語では，個々のデータ型について，その長さを明確に決 
めてしまうような仕様はありません.たとえば整数の int 型は，マシンにとって 
最も自然な整数のビット長が使われます. short や long についても同じことが 
いえます. 

これは，コンパイラによって出力されるコードの実行効率を，そのマシンで 
最も高めることができるように，という考えからです.そのため，一般的には， 
int 型はそのマシンのアドレスやデータを扱うレジスタと同じ長さにしています. 

Z 80 ではアドレスは16ビットであり，他のプログラムの移植を考えた場合に 
も8ビットでは足りないので，一般に16ビット長の整数が使われます.ところ 
が， Z 80 の基本演算は8ビット単位を主体に設計されているため， C コンパイ 
ラが整数を扱う時に出力するコードは，16ビットのマシンに比べてかなり複雑 
になってしまいます. 

もう1つ Z 80 で効率を落す原因として，フレーム.ポインタの問題がありま 
す. C の仕様では， C の関数は再帰的に呼び出すことができます.そのために 
は，関数が呼び出されるごとに，スタックにフレーミングを行い，引数や関数 
内で使われる自動変数等のための作業領域を確保します.この時，フレーム内 
の値を操作するのに必要となるのがフレーム.ポインタです. 

Z 80では， フレーム •ポイ ンタ として，たとえば BC レジスタ 等を使うわけで 
すが， フレーム 内の値を扱うための効率は，かなり悪くなります.特に C では， 
文字単位の人出力等のように，関数が頻繁に呼び出されるので，実行時の効率 
にかなりの影響を与えることになります. 

以上の2つの問題に加え， CPU の処理速度が遅いとか，アドレッシング•モ 
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ードが少ない等の CPU 性能上の問題もあるため ， C コンパイ ラの中には8ビッ 
卜の CPU 独特の工夫をしているものもあります.たとえば，オプションの指定 
で，再帰的呼び出しのできない形でコードを生成して効率を上げたり （ LSI - C 等）， 
char 型どうしの演算は int 型に変換せずに行う等の処理をしています.これらは， 
組込型の用途では効率を重視する立場からよいのですが，コンパイラの移植性 
を悪くすることも確かです. 

C コンハ。イラをサブセットにすることも， CPU 性能の問題から行われること 
だと考えられますが，これも当然コンハ。イラの互換性を下げることになります. 

もともと， C 言語の仕様はコ 、ノパク トにまとまっていて，サブセットについて 
の規格といったものはありません.従って， C コンハ。イラでサブセットといわ 
れているものの仕様は，それぞれのコンパイラで異なります.このようなサブセ 
ットのコンハ。イラは，今までアセンブラで記述していたものを，なるべく実行 
効率を下げずに開発効率を 上げたい，という場合には有効です.サブセットは 
コンパイルやリンクに要する時間がそれだけ短く，生成されるコードもフル 
セットのものに比べて効率が良いか，最悪でも同じだからです. 

このように， Z 80 のような8ビット系の CPU では， C の仕様を完全に満すこ 
とと，効率を重視することの両立が難しいので，使用目的と将来の方針を明確 
にして選択する必要があります. 

8086 

8086は， CPU のレジスタの長さが16ビットであり， BP (ベース.ポインタ） 
レジスタがフレーム.ポインタとして使用されるのに適しているため， 8ビッ 
卜系の CPU のマシンに比べ生成コードの効率が良く，実行効率も向上していま 
す.一般に，8086用の C コンパイラはフルセットのものが多く，そういった意 
味からも実用的になってきています. 

また，最近の8086用 C コンパイラのほとんどが，浮動小数点演算のためのコ 
プロセッサである8087をサポートしているので，数値計算を行う分野では，か 
なり強力になっています. 

しかし， CPU のアーキテクチャの要請で，メモリの使用にはセグメント•レ 
ジスタを扱わなければならず，メモリ容量が 64 K バイト以上か以下かで実行効 
率に影響があるため，生成するコードを変える必要があります.しかも，この 
選択は一般に，コンハ°イルやリンク時にユーザが指定する方法が取られます. 

この指定はメモリ.モデルと呼ばれ，スモール，コンハ。クト，ミドル，ラージ 
等がありますが，そのモデルの種類の数はコンハ。イラによって違います. 
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また，ライブラリ関数も，それぞれのメモリ•モデルに対応したものが用意 
されているのが普通です.ユーザがアセンブラで関数を用意する場合も，引数 
の受け渡し等はメモリ • モデルごとに異なることがあります. 

C で記述したプログラム中で，ポインタの扱い等を誤った場合，とんでもな 
いアドレスのメモリ内容を破壊したりして暴走させてしまうことが*よくありま 
す.また， ヒープ•エリアやスタック.フレーム による領域の侵犯による暴走 
の可能性もあります.後者の場合は，スタック上のフレーミングで領域を確保 
する時に毎回チェックを入れることもでき，これをオプションで指定させるコ 
ンパイラもありますが，その場合でも，危険と実行効率の低下のどちらかを選 
択する必要があります. 

この問題は，8086のマシンが一般にメモリ•マネージメント機能を持ってい 
ないことに原因があります. 8086のシステムではマルチ • ユーザ環境のものも 
あるわけですが， C のプログラムのデバッグ時はシングル.ユーザで使うこと 
が多くなると思われます.また，初心者による C プログラムのデバッグは，難 
しい面もあるかもしれません. 

8086用の C コンパイラでは，一般にフレーム•ポインタとして BP レジスタ 
が使われているということは前にも述べましたが，8086には，残念ながらスタ 
ック•フレームを意識した命令は全く用意されていません.従って，スタック 
• フレーミングを実現するメカニズムに関しては，他の16ビット系 CPU に比べ 
効率が悪くなっています. 

もう1つの問題は，8086の CPU レジスタが汎用でなく，ある程度使用目的が 
決まってしまっていて，しかもその数が少ないことです. C コンパイラではレ 
ジスタ宣言は必ずしも有効でなくてもかまわないのですが，実行効率に大きな 
影響がある場合が多いものです•ところが，8086用の C コンパイラでは確保で 
きるレジスタの数は多くても3個程度で，レジスタ宣言を無視するコンパイラ 
もかなりあります. 

6809 

6809が究極の8ビット CPU と呼ばれるのは，そのアーキテクチャが簡潔かつ 
柔軟なためです.内部レジスタは Z 80 の半分以下しかなく，アドレス空間も64 
K しかありません.しかし，豊富なアドレッシングにより，場合によっては 
16ビット CPU の8086をもしのぐ小回りの良さを示す場合もあります. 

6809には，ポインタとして使用できる16ビットのレジスタが4本あり（うち 
2本はスタック用），そのすべてでアキュームレータオフセットを含む様々な才 
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フセットアドレッシングが可能な上，才ートインクリメント（デクリメント） 
の機能も持ちあわせています. 

こうしたアーキテクチャは， C 言語に類似するところもあり， コンパイルし 
やすい環境だといえましょう. 

また，オフセットアドレッシングの産物として，インデックスレジスタを擬 
似アキュームレータとして使用できる点，デクリメントして〇になったところ 
で Z フラグが立つことによってカウンタとしても使用できる点があるため，特 
に整数 （16 ビット）の加減には便利です. 

乗算に関しても2つの8ビットアキュームレータどうしの乗算命令があるた 
めに，整数の乗算は Z 80の比ではない程，高速に行うことができます. 

ところで，関数間の引数の受け渡しは6809の場合，真にシステムスタックを 
使って行うことが容易に実現できます. 6809のシステムスタックは，先に述 
ベたように，インデックスレジスタとしての機能も持ちあわせているためにコ 
ンスタントオフセットをすることによって，引数を受けとることができるので 

す. 

しかし，こうした技法は，引数受け渡しのための領域と，関数（一般にサブ 
ルーチン） からの戻り番地を記録する部分が同居するため，引数の形式を誤る 
と，ただそれだけで暴走してしまうことにもなりかねません. 

一般に C 言語では，このようなミスではエラーを発生しないようになってい 
ますので （プロ グラマの変則的な引数の与え方をすることを許すため），充分注 
意する必要があります. 

さて，システムスタックの柔軟性については，もう1つ特筆すべきものがあ 
ります.それは，インラインパラメータの利用が容易だということです. 

たとえば，整変数に定数値を加えるという操作は，次のような技法により， 

この定数値をプログラム中に置けるのです. 

BSR LAB 
FDB 定数値 
LAB PULS X 

JSR _add 

ここで， — add というランタイムサフ Vu —チンは， X レジスタをポインタとし 
て引数としています.現にこうした技法は ， MICROWARE C の中で利用され 
ています. 

ただ，いずれにせよ， 64 K というアドレス空間は， C コンハ。イラを動作する 
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にはあまりにも重荷で，システムを構築する程の大きな作業には向かないと考 
えられますが，アセンブラを含めた C 言語の学習用としては便利だと思われま 

す. 

68000 

68000では，8086に比べ C と相性の良い特徴がいくつかあります. 

まず，メモリ空間が線型で 16 M パ'イトもあることです.また， link , unlk 命 
令により，スタックのフレーミングの実現が容易になっています.汎用レジス 
夕の数はデータ•レジスタが8，アドレス•レジスタが8 ( 1つはスタック. 

ポインタ）の合計16もあり，それぞれ32ビット長で，データ•レジスタは8ビ 
ットでも16ビットとしても使えます. 

CPU の命令はアドレッシング.モードが豊富で， C コンパイラが生成するコ 
ー ドの効率がよくなります.さらにメモリ•マネージメント機構を68451 MM 
U によって実現でき， C の実用性はさらに向上します. 68000への C 言語のイ 
ンプリメンテーションは，そのアーキテクチャにより容易になっているため， 
かなり早い時期から多くのシステムで行われてきました. 

ただし，浮動小数点演算についてはソフトウェアで行うことになるため，他 
の16ビットや32ビットの CPU のマシンに比べ，かなり遅くなります. UNIX の 
本来の使い方である，コンパイラ設計等の計算機科学や文書作成の分野では， 
浮動小数点の演算はあまり行われませんが， C を数値計算のために使うことも 
多くなってきているので，使用目的によりこの点を考慮に入れておく必要があ 
ると思われます. 

今まで説明してきた CPU のマシンに比べると，68000のマシンは規模の大き 
いものが多く，強力ではありますが，それだけ高価なものが多いようです. 

しかし， C 言語の需要の拡大とその普及に伴い，さらに実用的なシステムを 
求める声が多くなってきています.この点で，現在最も要求に合うのか68000 
CPU のマシンであり，近いうちに機能が高くて価格の安いシステムが発表され 
ると予想されます. 

16032 

UNIX と C 言語を考えた場合，現在最も注目されている CPU が16032です. 
その理由はいくつかあります. 

その1つは，16032 CPU ， 16082 MMU ， 16081 FPU の3チップの組合せにより， 
メモリ管理と浮動小数点演算を含むシステムを容易に作ることができるという 
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ことです.しかも， MMU によってデマンド•ページンク方式による仮想記憶 
機構を実現できます.この機構は，実用的な複数ユーザの UNIX システム等， 
能力の高い 0 S を考えた時に非常に有効なものです.また， MMU には プロ グ 
ラムをデバ' ッ グするためのブレークポイントと， プロ グラムの流れをトレース 
する機能が含まれており，デバッグ時の効率を上げることができます. 

もう1つの理由は， CPU のアーキテクチャの設計がすぐれて いる ことです. 

まず，高級言語のサポートを考慮に入れて設定されています.たとえば，ス 
タックのフレーミングについては， ENTER と EXIT 命令によって，容易に実現 
でき，しかもフレーム.ポインタとして CPU レジスタの FP が用意されています. 
また，モジュール構造のソフトウェアのサポートも積極的に行われています. 

さらに，アドレッシング•モードを伴った命令は対称性を持ち，そのアドレ 
ッシング.モードの種類も豊富です.しかも，メモリ対メモリの演算を1命令 
で実行できるので， コンパイ ラの設計が容易になり，生成されるコードは非常 
に高い密度にすることができます.この結果，プログラムの実行も他の CPU と 
比べ速くなっています. 
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小幡広昭 C 言語研究会 

C でソフトウェア開発を行う場合，作業環境として最もよいと思われるのは， 
やはり UNIX ということになります.しかし， CP / M や MS - DOS ， OS - 9等の 
システム上でも， C のプログラムを作って動かすことはできます. 

もともと， C 言語自身は OS に対する依存度が低く，人出力等に関しても標準 
ライブラリを利用するわけですから，その OS に適したプログラムを書くのに問 
題はありません.つまりその 0 S にある機能は充分に生かすことができるのです. 
ただ， UNIX の便利なツールをそのまま使いたいとか，他の OS で動いている C 
のプログラムを使いたいという場合には， 0 S がサポートしている環境の違いに 
よって使えないこともあり得るわけです. 

最近の 0 S は UNIX の機能を一部取り入れることで，外見は UNIX らしくな 
ってきています.特に I / O のリダイレクションや，パイプ機能は擬似的なもの 
も含め，実現が容易なために多くの OS で取り入れられてきています. 

ただ， UNIX と UNIX に似た OSS , C を使用する作業環境としては完全に異な 
ると考えた方がよいと思われます.もちろん， UNIX スタイルのマシンが，近 
い将来に普及することが予想されるため，ある程度親しんでおくことの意味は 
あると思います. 

それでは，現在の UNIX がツールとして用意しているものを，他の 0 S ではど 
のようにして実現しているのかを見てみることにしましょう.まず，他の 0 S に 
共通しているものとして， lint , sdb , make , vi を取り上げます.もちろん， 
UNIX にはこれ以外にも grep のように，小さなツールでありながら使い道がた 
くさんあり，プログラム作成の時にも非常に有効であるものが豊富にあること 
を忘れないでください. 

lint と同じような文法チヱックは，他の 0 S では C コンパイラに含まれている 
のが普通です. lint では厳密な文法チェックはもちろん，必要に応じてそれ以 
上のチェックも行ってくれますが，他の 0 S の C コンハ。イラでは，コンパイラの 
大きさやコンハ。イルの速度等も考えに入れなければならないので，厳しいチェ 
ックはしていないのが実情のようです.これらのコンハ。イラの中には，コンパ 
イルの初期の段階で，できるだけ多くのチェックとエラー表示を行ってしまい， 
なるべくユーザが時間を無駄にしなくて済むように工夫しているものもあるよ 
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うです. 

次に sdb ですが，残念ながらこれをサポートしている OS は少ないようです. 

これは現在の主流となっている CPU のアーキテクチャが高級言語をサポート 
するように設計されていないため，作るのがかなり難かしいということにも原 
因があるようです.従って，他の OS ではアセンブラ • レベルでのデバッ グが主 
体となります.このような方法をとる場合，ユーザはコンハ。イラがどのように 
コードを展開しているかを知る必要があり，初心者にはかなり難しい面もあり 
ます. 

デバッグに際しては， C のプログラムがアセンブラに展開された時のソース 
•リスト，または直接機械語に展開された場合は逆アセンブル • リストが必要 
となります. 

make は，プログラムを作り上げる時には大変便利なのですが，小さなプロ 
グラムを作る場合には無くても済むものです.ただ， C でのプログラミングの 
テクニックの1 つで ある，単純な機能ごとに分けて作り，これらを組合せて1 
つの プログラムとする場合には有用なものです. 

make を動かすための OS の環境としては，個々のファイルに最終修正日時の 
情報があることが絶対に必要ですが，それ以外にもディレクトリが階層構造に 
なっていて，しかもディスクの容量がある程度より大きいこと，シェル•スク 
リプトが使えるシヱルが楽に動く程度の機能が 0 S にあること，そしてコンパイ 
ラやリンク•エディタの機能が高いこと等が必要です.そうでないと， make 
は動かすことができても，あまり実用的ではなくなってしまいます. 

UNIX では，この make があるおかげで，他人の作ったプログラムや，時間が 
経過してプログラムの構成を忘れてしまったプログラムを機能変更したり，シ 
ス テム •コマンドを 作り直したりすることが簡単にできるのです.ただ，上記 
のような条件があるため， UNIX 以外の小規模 OS では，残念ながらまだ実現さ 
れていないようです. 

vi と ex ほど多くの機能はなくてもかまいませんが，強力で使い勝手の良いエ 
ディタは，プログラムの作成にあたってはかかすことのできないツールです. 

このようなツールが有るか無いかで，プログラミングの開発効率は大きく違 
ってきます.また，プログラム作成以外のユーザ環境においても， エディタが 
果す役割は重要です.できれば，使用する人は同じなのですから， OS が違って 
も同じ エディ タが動いてほしいところです が， OS が サポートする環境の違いな 
どから難しいのが現状です. 
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次に CP / M ， MS - DOS ， OS -9 について， C のプログラミング環境を見てみ 
ることにしましょう. 

CP/M-80 

8ビット系の CP / M -80 上で動く C コンパイラは，ほとんどが C のサブセット 
で，なるべくオブジェクトの効率を落さないように配慮されているものが多い 
ようです.また，オブジェクトが ROM 化可能なものも多いようです.このこ 
とは， CP / M -80 上での C プログラムの開発が，移植性よりもアセンブラと比べ 
たソフトウェア開発の効率の向上と組込み型への応用を目的としているためと 
思われます.また，このような用途にあわせて，多くのコンパイラではライブ 
ラリをソースで提供し，ユーザが必要に応じて変更できるようになっています. 

16ビット系の CP / M -86 上のコンハ。イラでは， C の全仕様を満しているものが 
多いようですが， CPU のアーキテクチャがそれほど C 言語に適していないため， 
コンハ°イラの能力に，ある程度のばらつきが見受けられます.また，細部では 
仕様を満していないものもあるようです. 

CP / M では， OS レベルで I / O のリダイレクシヨンやパイプ機能はサポートさ 
れていません.しかし，いくつかの C コンパイラでは， C のプログラムが実行 
を開始する直前に動くスタート • アップ • ルーチン内で引数の処理だけでなく， 
I / O のリダイレクシ ヨンの ための く，〉 ，>>の処理をサポートしています. 

この機能があれば，ターミナルとの入出力をファイルとの入出力に実行時に変 
えることができ，他の OS から C のプログラムを移植する際に，ソースを変更せ 
ずに使うことができ便利です.また，パイプ機能に関しては，一時ファイルを 
経由することにより，擬似的に扱うことはできます.たとえば， 

A > tr*i _ m _ m _ 1’/012，1 — I く srci — i 〉 tmp 001 

A> sortu く tmp00lL_j>tmp002 
A> uniq._,<tmp002. _ .>dst 
A> era.—.tmpOOl 
A> era^_itmp002 


とすれば， src という ファ イ ル 中のデータを スペース ごとに区切ってそれぞれを 
1行とし （ tr )， アルファベット 順に並べかえ （ sort )， 同じ行を取り除き （ uniq )， 
dst ファイルに出力します.つまり， src ファイル中の単語をアルファベット順 
に並べた ファ イ ルを 作ること が 一応できるわけです. 

これを UNIX ならば， 
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— itr — 1 1 — i’i — I ，\ 01 2 ’i —I く src — i|i _ isort _ i |> _ lUniqi _ i〉dst 

の 1 行で済ますことができます.しかも，パイプの中を通るデータの量が少な 
ければ，これはメモリ上だけで処理されます.この時， tr ， sort ， uniq の三つ 
のプロセスは並列に動作します. 

以上のように CP / M でも， C で記述されたユーザ.プログラムについては， 
I / O のリダイレイションやハ。イプ機能をある程度行わせることができます. 

これにシヱルらしきものを作れば，一時ファイルもコマンド行から排除する 
ことができるわけですが，これはそれほど難かしいことではありません. 

ただし， CP / M では，階層構造のディレクトリやプロセス管理といったもの 
をサポートするのは困難ですから， CP/M はあくまで少しは UNIX らしく装う 
ということにとどまります. 

MS-DOS 

MS - DOS には現在，初期バージョンの V 1.25 と XENIX からの機能を追加した 
V 2.0 があります. V 2.0 では， UNIX と同じ名前のコマンドがいくつか追加され 
ています.また，標準入出力 （ I / O のリダイレクション）とハ。イプ機能，階層構 
造のディレクトリが追加されています.これらと V 1.25 からあるタイム•スタン 
プ（ファイルごとの変更日時情報）とあわせて，外見はかなり UNIX らしくなっ 
てきています. 

V 2.0 では， CP / M ではできなかった，コマンドの出力をパイプにつなぐこと 
もできます.たとえば， 

A> DIR | SORT | MORE 

という•ような組合せも可能です.ただし， V 2.0 でも MS - DOS はシングルタスク 
の 0 S なので，パイブは擬似的に実現されていて，それぞれのコマンドは順番に 
実行されます. 

MS - DOS 上で動作する C コンパイラは， CP / M -86 上で動作するもののほとん 
どすべてが MS - DOS 用もあるので，その種類はかなり豊富です. 

0S-9 

OS -9 は究極の8ビット CPU ， 6809専用の OS として開発された OS です.レべ 
ル1とレベル2があり，レベル2では2 M バイトのメモリ空間を管理できます. 
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UNIX - like の OS であり，16ビットの MS - DOS よりもさらに UNIX らしくな 
っています.具体的には I / O リダイレクト，階層構造のディレクトリにくわえ 
て，メモリ内で処理するパイプ機能，マルチタスク，マルチユーザをサポート 
しており，機能的には UNIX とほとんど変わりません. 

UNIX で， 


% progl く file 1 | prog2 | prog3 > file2 

と書く操作は， 

0S9 : progl < filel ! prog2 ! prog3 > file2 


とセパレータ以外は同様に書けますし，並列に動作します. 

UNIX の機能を8ビットの小規模なシステムで実現するために，メモリモジ 
ュールという概念が取り入れられています.これは，6809ではポジションイン 
ディペンデント（位置自由）でリエントラント（再入可能）なプログラムが書け 
るという特長を生かして，プログラムをすべて特定の形式の位置自由で再入可 
能なモジュールとして作成することにより，物理メモリ上の1つのモジュール 
を複数のプロセスで使用するというものです.これによりメモリ効率が良くな 
り，メモリのスワッビングを行うことなくマルチタスクを実現しています. 

OS 上で動くプログラムだけでなく， OS そのも の も階層構造の モジュールの 
集合として構成されており，ユーザが必要に応じて自由に追加，変更できます. 

モジュールは ROM 化可能ですから， OS そのものも ROM 化した小規模の組 
込みシステムも，ハードディスクを持つ大規模システムも構成できます. 

このように裸の OS としては，現在のパソコンレベルではきわだった高い性能 
を持つ OS -9 ですが，トータルな開発環境としてみた場合， UNIX と比較する 
とかなり貧弱であるのは否めません. UNIX の特徴である yacc ， lex , make 等 
の豊富なツールはなく， Shell の機能も貧弱で，開発環境の中核をなすべきエデ 
ィタも， UNIX のエディタからは，かなり見劣りするラインエディタです. 

しかし，8ビットのフロッピーベースシステムの上である程度 UNIX の機能 
を味わえる点を評価すべきでしょう. 

UNIX にあるようなツールは後から付け加えることもできますし，ツールが 
なくともシングルタスク，平面ディレクトリの CP / M , FLEX などとは比べら 
れない良好な開発環境を持っているのですから. 

FM シリーズ用の OS -9 にはマルチウインドウや漢字までサポートされ， 
BASIC 09という高級言語まで付いています.マイクロウェア社の C は，8ビ 
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ットの C の中では最高速の部類に属するフルセットのもので，ライブラリ，シ 
ステムコールも UNIX の C と コン ハ。チビリテイが考えられた設計になって い 
ます. 
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C 言語研究会酬 

最近，各種の パソコンが 出回り，そのコンピュータ上でまたさまざまな os 
が動作できるような環境ができてきました.そこで問題になってくるのが各 os 
上の言語の互換性です.ここでは，この互換性が一番高いといわれる C 言語の 
コンパイ ラに ついてベンチマーク テストを行ってみました. 

ベンチマークテストに使用した C と機種 

今回のベンチマークテストで使用した 0 S と C コンハ。イラは次の通りです. 

CP/M • AZTEC C 

• BDS C COMPILER 
OS-9 • MICROWARE C 
MS-DOS • OPTIMIZING C 

• DeSmet C 


また，ベンチマークテストに使用した機種構成は次の通りです. 


CP/M . PC- 8801 mkll 

OS-9 . FM-7 + 5inch FDD 

MS-DOS . PC- 980 lE(8MHz 動作） +8inch FDD 


ベンチマークテスト （1) 

このテストには次の3つのプログラムを作成し使用しました（プログラム1， 
2，3参照）.このベンチマークテスト用のブログラムを作る際，特に意識した 
ことは，ファイルを取り扱うようなプログラムの場合，各 OS のファイル管理の 
方法やファイルのディスヶット上の物理的な位置が，速度測定の際に大きな問 
題となることです.そのため，今回のベンチマークテストでは，そのようなフ 
ァイルを取り扱うようなコマンドは使用しないことにしました. 

プログラム1は，2重のループだけのプログラムです.このプログラムの目 
的は，速度はもちろんですが，コンパイルされたプログラムがどのように展開 
されているかを調べることです. 
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= 0 ; i < 100 ; i++ ) 
ack( x , y ) ; 
n %d\n" , ans ); 


int x , y , i , ans , ack() : 


ack( ax,ay ) / * Function Ackermann * / 

int ax , ay ; 

{ 

if ( ax == 0 ) 

return ( ay+1); 
else 

if ( ay == 0 ) 

return ( ack( ax-1 r 1 ))； 
else 

return ( ack ( ax -1, ack ( ax f ay -1))); 


/* * It is bench mark test vol.O * 

/* 

/* This sample is loop test 

/* 

/* object sizeioptimize:time:etc. 


/* 

main() 
{ 


Programed by F-Kaneda 


unsigned int i , 


for ( i 
for ( 


0 


< 1000 ; i++ ) 

! j < 1000 ; j++ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


プログラム 2 


* It is bench mark test vol.1 


/* This sample is fanction Ackermann 
/* 

/* Programed by F-Kaneda 


*/ 
*/ 
*/ 
*/ 
氺 / 


main() 


=( 
s f 

3 3 ( n t 
an 

ii ii r i 
0 r 

X yf p 
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isalpha( character ) 
isupper( character ) 
islower( character ) 
isdigit( character ) 
isspace( character ) 


for ( count = 0 ; count < 1000 ; count++ ) 

{ 

x = pai * pai * pai ; 

x = pai / pai / pai ; 

x = pai + pai - pai - pai ; 


for ( count = 0 ; count < 1000 ; count++ ) 
{ 

j = k = 0x55 ； 

i = ( ( j & k ) == !( ij | Ik )); 


プログラム 3 


/* * It is bench mark test vol.2 * 

/* 


/* This sample is function of include file */ 
/♦ */ 

/* 

/* 


Programed by F-Kaneda 


^include < stdio.h> 

^include <ctype.h> 

main() 

{ 

char string[256]; 

char character ; 

int i , j , k , flag , count ; 

float x , pai = 3.14159 } 

for ( count = 0 ; count < 1000 ; count++ ) 

{ 

strcpy( string , "This is test string i!"); 
flag = strcmp( string , "This isn't same string 


character = 
for ( count 


count 


.1000 


count++ 


II II II II II 

9 9 9 9 9 
aaaaa 
11111 
V f f f f f } 
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結果は表1を見ればわかりますが MS-DOS 上の DeSmet C が一番で次に OPTI 
MIZING C が速いことがわかります • ここで CP/M 上の AZTEC C や BDS C が 
やたら遅いのが気になります.これは使用した PC - 8801が DMA やキー割り込 
みなどにより，実際は Z -80 のクロックが 4 MHz 以下になっているのが原因のよ 
うです.多分，他の CP/M ではもう少し速い結果が出るでしょう.また，この 
ような短いソースプログラムにもかかわらず，かなりのオブジェクトサイズを 
食っています.これは，ランタイムルーチンなどをリンクすることによって起 
こるものです.このソースプログラムなどは各種のチェック（スタックなど） 

を行う以外は使用しないはずで“コブ”がくっついているようなものです.ま 
た，実行速度が異なる OS で大幅に違うのは当然としても，同一の OS 上で何割 
も違ってくるのは不思議なことです.このループのプログラム程度ではオブジ 
ェクトの効率がさほど違うとは思えません.やはりこれも何らかのチヱックに 
時間を取られているのでしょう.この差は安全性の代償といえるでしょう. 

次に，コンパイラがどのようにソースプログラムを展開しているのか調べて 
みましよう.まず， AZTEC C のアセンブルファイルです（リスト1 ). 一見し 
て思うことは「本当にあのプログラムか？」ということです.見事にスパゲッ 
ティにミートソースがかかっているといった感じです.かたまりで見ると少し 
はまともなのですが，この原因は， Z -80 のスタック命令が少ないことと，16ビ 
ット演算を行うのに HL レジスタを使い，また，ポインタとしても HL レジスタ 
を使っているからです.これは Z -80 の宿命といえるでしょう.それにしても Z - 
80は C 言語には向いていないようです. OS -9 上の MICROWARE (めについても 

表1プログラム1のベンチマークテストの結果 （35 ページにつづく） 


0 S 名 

コンパイラの名称 

オブジヱクトサイズ 

実行時間 

CP/M 

AZTEC C 

0 D 80 bytes 

126 sec 

BDS C 

0880 .. 
(0880 ) bytes 

84 

(” 8 )sec 

0 S -9 

MICROWARE C 

01 DO ,. 
(01 DA) bytes 

15 

(18 ) sec 

MS-DOS 

OPTIMIZING C 

4320 bytes 

11 sec 

DeSmet 〇 

2048 bytes 

9 sec 


カッコ内は最適化を行わない場合 
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リスト1 


main : 


.3: 


.4: 


. 6 : 


extrn .begin,.chi , .swt 

extrn zsave,zret 

PUBLIC main 

lxi d,.2 

call zsave 

LXI H,0 

XCHG 

LXI H,6 - .2 
DAD SP 
MOV M,E 
INX H 
MOV M f D 
JMP .4 

LXI H,6 - .2 
DAD SP 
PUSH H 
MOV A,M 
INX H 
MOV H,M 
MOV L,A 
INX H 
XCHG 
POP H 
MOV M f E 
INX H 
MOV M,D 


LXI H,6 - .2 
DAD SP 
MOV E,M 
INX H 
MOV D f M 
LXI H, 1000 
CALL .ul 
JZ .5 
LXI H,0 
XCHG 

LXI H,4-.2 
DAD SP 
MOV M,E 
INX H 
MOV M,D 
JMP .7 

LXI H,4-.2 
DAD SP 
PUSH H 
MOV A,M 
INX H 
MOV H r M 
MOV L,A 
INX H 
XCHG 
POP H 
MOV M,E 
INX H 
MOV M,D 


ループ 2 


ループ 1 
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各処理系のベンチマークテスト 



LXI 

H,4 - .2 


DAD 

SP 


MOV 

E,M 


INX 

H 


MOV 

D, M 


LXI 

H, 1000 


CALL .ul 


JZ • 

8 


JMP 

. 6 

.8: 

JMP 

.3 

.5 ： 

RET 


.2 EQU 

-4 



extrn .ul 
END 


ループ2 

ループ1 


見てみましょう. C コンパイラの中には，最適化を行うか行わないかを指定で 
きるものもあります . MICROWARE C もこの1つで最適化をするかしないか 
を選択できるようになっています.リスト2とリスト3がそれぞれ最適化する 
前と最適化後のアセンブラのソースフマイルです.最適化後のオブジヱクトが 
かなり短くなっています.よく見るとブランチ命令の直前の命令がブランチ先 
を変えることによってなくなっているのと，ロングブランチがショートブラン 
チに変わっているのがわかると思います.また ， BDS C などは，速度を最重視 
した最適化があり，この場合，速度は速くなるようですがオブジェクトがやや 
長くなるようです. 


リスト2，リスト3は次以降のページに示します. 
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第 1 部バソコン C 言語入門編 


ldd 2, s 

cmpd #1000 
lblo _2 

leas 4, s 
puls u f pc 


psect bench0_c,0 f 0 r 0,0,0 
nam benchO 一 c 

ttl main 


pshs 

ldd 

lbsr 

leas 

clra 

clrb 

std 

lbra 


stkcheck 

:4,s 


2,s 

4 


clra 

clrb 

std 

lbra 


0, s 


ldd 0, s 
addd #1 
std 0, s 


ldd 0,s 
cmpd #1000 
lblo 6 


リスト 2 

0000 

0000 

0000 main: 

0000 3440 
0002 ccffbc 
0005 =17fff8 
0008 327c 
000a 4f 
000b 5f 
000c ed62 
00 Oe 1600 If 
0011 _2 

0011 4f 
0012 5f 
0013 ede4 
0015160007 
0018 一 6 

0018 _9 

0018 ece4 
001a c 30001 
001 d ede4 

001 f 一 8 

001 f ece4 
0021108303 e8 
0025 1025ffef 
0029 _7 

0029 _5 

0029 ec62 
002b c 30001 
002e ed62 

0030 _4 

0030 ec62 
0032108303 e8 
0036 1025ffd7 
003a _3 

003a 3264 
003c 35c0 


f f be 
003e 


リスト 2 が最適化を行う前，リスト 3 が最適化後のアセンブラのソースフアイルで 
す . よく見比べてください . 


equ - 
endsect 


s S 
f 1 f 
2^2 


d 

d d d 
d d t 
las 
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各処理系のベンチマークテスト 





psect 

benchO 一 c,0,0,0,0,0 

0000 



nam 

benchO c 

0000 



ttl 

main 

0000 

3440 

main: 

pshs 


0002 

ccffbc 


ldd 

0005 =17fff8 


lbsr 

stkcheck 

0008 

327c 


leas 

二 4,s 

000a 

4f 


clra 


000b 

5f 


clrb 


000c 

2018 


bra 

一 $2 

00 Oe 

4f 

一 2 

clra 


00 Of 

5f 


clrb 


0010 

2005 


bra 

_$1 

0012 


9 



0012 

ece4 

_6 

ldd 

0 , s 

0014 

c 30001 


addd 


001 7 

ede4 

$1 

std 

0, s 

001 9 

ece4 

_8 

ldd 

0, s 

001b 

108303 e8 


cmpd 

#1 000 

OOlf 

25f1 


blo 

_6 

0021 


5 



0021 

ec62 

=7 

ldd 

2 r s 

0023 

c 30001 


addd 


0026 

ed62 

$2 

std 

2, s 

0028 

ec62 

一 4 

ldd 

2,s 

002 a 

108303 e8 


cmpd 

#1000 

002e 

25de 


blo 

2 

0030 

3264 

一 3 

leas 

て, s 

0032 

35c0 


puls 

u,pc 

ffbc 


一 1 

equ 

-68 

0034 



endsect 


ベンチマークテスト (2) 

プログラム2は関数の再帰呼び出しと条件判断のテストです.ここでは有名 
なアッカーマン関数を定義して，この関数の Ack (3， 3) を求める動作を100 
回行っています.答えは61になります.定義式は以下の通りです. 

[ y+ 1 x= 〇 

Ack (x ， y)= Ack (x— 1 ， 1) x> 0 かっ y= 〇 

'Ack (x—1 ， Ack(x, y—1))x> 0 かっ y> 0 

結果は，プログラム 1 と同じようですが CP / M -80 上で動作する 2 つの C だけ 
は実行速度が2倍近く上がっています. Z - 80は，ループより再帰が得意のよう 
です.また，再帰呼び出しは関数 コールの 連続と考えることができるため，す 
ベてのブログラムが関数 コールで ある C の 能力を推し量る上で参考になる ので 
はないでしようか.（表2参照） 
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第 1 部バソコン C 言語入門編 


表2 プログラム2のベンチマークテストの結果 


0 S 名 

コンパイラの名称 

オブジェクトサイズ 

実行時間 

CP/M 

AZTEC C 

1 E 00 bytes 

64 sec 

巳 DS 〇 

(0 E 80 ) bytes 

44 

⑺严 

0 S -9 

MICROWARE C 

(超) 

(15 ) sec 

MS-DOS 

OPTIMIZING C 

4448 bytes 

8 sec 

DeSmet C 

2048 bytes 

7 sec 


カッコ内は最適化を行わない場合 

ベンチマークテスト (3) 


プログラム3は C コンパイラ内部の組み込み関数と実数演算，論理演算など 
についての ベンチ マーク テストです.本当は，三角関数や対数などもやってみ 
たかったのですが，これらの関数を持っていないものが多いた めに 今回は遠慮 
しました.また ， BDS C はコンハ。イラ本体だけでは実数演算ができず，外部の 
実数計算用のへッダをインクルードしなければならないために，ソースに互換 
性がなくなる ため， このテストでは避けました. 

結果は，前のテストとほとんど同じですが ， DeSmet C だけが速くなってい 
ます.この コンパイ ラは実数の演算ハ。ッケージなどが速くなるように作ってあ 
るのでしょう.（表3参照） 


表 3 プログラム 3 のベンチマークテスト 


OS 名 

コンパイラの名称 

オブジヱクトサイズ 

実行時間 

CP/M 

AZTEC C 

2200 bytes 

104 sec 

巳 DS 〇 

- bytes 

— sec 

OS -9 

MICROWARE C 

(S) 

21 

(22 ) sec 

MS-DOS 

OPTIMIZING C 

6681 bytes 

14 sec 

DeSmet C 

4608 bytes 

5 sec 


カッコ内は最適化を行わない場合 
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各処理系のベンチマークテスト 


コンパイル速度のテスト 

すべてのテストに対して， 0 S -9 の MICROWARE C は15秒前後です.また， 
オブジェクトもかなり小さくなっているのが特徴的です. MS - DOS 上の2つの 
C においては，たいへんオブジェクトが長くなっているようですが，これは多 
機能なランタイムルーチンをリンクしているため，このようになってしまうの 
でしょう.メモリを多くとれる OS はサイズを気にしなくていいため，開発な 
ども楽になっています. 

各 C コンハ。イラのコンハ。イル速度はそのファイル構成や使用する周辺機器に 
よって異なってくるものですが，1つの例として表4にコンパイル速度とその 
テスト条件を示します. 


表4 プログラム1のコンパイルにかかる時間とそのシステム 


0S 名 

コンパイラの名称 

処理時間 

システム 

CP/M 

AZTEC C 

114 sec 

PC-8801 mk II モデル 30 

巳 DS 〇 

51 

(51) sec 

同上 

0S-9 

MICROWARE C 

122 

(108) sec 

FM-7+LFD 550(EXA) ステップレート 6ms 

MS-DOS 

OPTIMIZING C 

28 sec 

PC- 9801 E + PC-9881K(8 インチ） 

DeSmet C 

13 sec 

同上 


CP / M は A ドライブに コマン ドを， B ドライブには ソースを 入れて コンパイル しました 
0 S -9 は0ドライブに コマンドを， 1ドライブには ソースを 入れて コンハ。 イルしました 
MS - DOS は A ドライブのト ッブレベルにコマンドとソースを 人れておいて コンパイ 
ルしました 

以上のテスト結果をグラフにしてみました. 

プログラム1の実行速度比較（白い部分は最適化を行わない場合） 
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第 1 部 パソコン C 言語入門編 


プログラム2の実行速度比較 



プログラム3の実行速度比較 



プログラム1のコンパイルにかかる時間の比較 






~ i 

^i 








1 






AZTEC C 

_J 114 




CP/M 







,1 












BDS C 






51 

I 

(51) 

I I 









OS -9 

MICROWARE C 

1 122 (108) 


OPTIMIZING C 



| 

28 













MS-DOS 




厂 















DeSmet C 


r 11 ? 












( sec ) 

i 


ここにあげたテストは C のごく一部の機能を試したものに過ぎません.その 
意味で，このベンチマークテストはあくまで一例として参考にしていただきた 
いと思います. 

本書の巻末には，「各処理系の関数一覧表」を掲載しました.各社 C の特徴 
を知るうえで参考にして下さい. 
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各処理系の仕様一覧 


C 言語研究会 


BDS C COMPILER 


CPU 

8080，8085， Z -80 

OS 

CP / M -80 

開発元 

巳 D SOFTWARE INC . 

代理店 

(株）ライフボート TEL (03)456-4101 

定価 

¥60,000— 


特徴 

CP / M -80 用としては一番普及している（：コンハ°イラ. float をサポートしてい 
ないサブセット仕様ですが，高速コンパイルおよび高速オブジェクト等の利点 
を生かしてアセンブラの代替としてよく使用されます. 

強力なユーザーズグループに支えられているのも強味.ちなみに BD は Brain 
Damage の略です. 

AZTEC CII 


CPU 

Z -80, 8080 

OS 

CP / M -80 

開発元 

MANX SOFTWARE SYSTEMS 

代理店 

(株）サザンパシフイツク TEL (045)501-8842 - 8919 

定価 

¥47,500— 


特徴 

カーニハン&リッチーの仕様をフルサポートするコンパイラ . BDS C と 
は対照的に機能の豊富さを目指しています.しかしコンパイルおよびオブジェ 
クトは BDS に比べると遅いようです. 

上位機種のソースを Z -80 用に落とすのに向いています. 
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第 1 部パソコン C 言語入門編 


OPTIMIZING C86 C コンハ°イラ 


CPU 

8086 

OS 

MS-DOS ver .1.25, ver .2.0, CP / M -86 

開発元 

Computer Innovations Inc . 

代理店 

マイクロソフトウェア TEL (03)813-8221( 代） 

定価 



特徴 

8086用として大変魅力のある C コンハ。イラです.すべてのソースフアイルが 
標準で付いてきます.また日本語処理機能，グラフィック機能も有しているう 
え ， UNIX C とのコンパチビリティも他に勝っています.半面，コンパイル速 
度，オブジェクトサイズはやや劣ります. 

MS-DOS ver .2.0 以後の階層ディレクトリ構造などをサポートしています. 
アーカイブ•ユーティリティが付いてます. 

DeSmet C 


CPU 

8086, 8088 

OS 

CP / M -86, MS-DOS ver .1.25, ver .2.0 

開発元 

DeSmet Software 

代理店 

ソフトウ i ア.インターナショナル（株） TEL (03)486-7151 

定価 

¥92,000- 


特徴 

8086用としては安価な部類に入るコンハ。イラ.代理店によってエンハンスさ 
れており漢字使用可能になっています.他に1日無料セミナー，電話によるコ 
ンサルタント，日本語マニュアル等々，代理店の力の入れ方が目につきます. 
機能は全体にやや小ぶりな印象を受けます.専用のフルスクリーンエディタが 
附属として付いています. 
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各処理系の仕様一覧 


MICROWARE C 


CPU 

6809 

OS 

OS -9 Level I，II 

開発元 

MICROWARE INC . 

代理店 

マイクロウェアジャパン株式会社 TEL 0473(28)4493 

定価 

¥160,000- 


特徴 


0 S -9 用唯一のフルセット C コンハ。イラです. 8 bit 用で マルチ タスクおよび 
マルチユーザ 機能を唯ーサポートしている C コンハ。イラです.逆に算述関数が 
ほとんどないのは残念です.使い勝手がよい点としてヘッダファイルのディレ 
クトリが固定されていること，コンハ。イラが自分で procedure file を作りそれ 
を実行すること， UNIX の cc のように C ソース，アセンブラソース，オブジ 
ェクトの各ファイルを任意の数並べて引き渡せることなどがあります. 
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第 2 部 

C トレーニングサンプル編 



第 2 部 C トレーニングサンブル編 


本編の読み方 

第 1 部では，ハ。ソコン上で C 言語を走らせた場合の作業環境や各 os ， CPU 
との相性について解説したほか，各処理系のベンチマークテストのデータを公 
開しましたが，本編では，実際にパソコン上で走るサンプルプログラムを紹介 
します. 

これらのサンプルプログラムは，実用を目的としたものではなく，あくまで 
初歩的なプログラミングテクニックの習得を目的として書かれたものです•そ 
のため，プログラムとしての完璧さよりも，主要な関数がいかにプログラム上 
で使われているかに重点を置いて説明する形をとりました. 

プログラミングのテクニックを習得するにあたって，まず C 言語の典型的な 
プログラムのスタイルや基本的な関数の機能を知る必要がありますが，本編の 
構成は，数ある関数の中から最も基本的，しかも頻繁に使われる関数から順を 
追って説明するよう配慮しました.基本的な関数とは同時に最も簡単な関数で 
もあります.単純なものから複雑なものへと，ステップを踏みながら進めてい 
くようになっています. 

本編では，プログラムのスタイルおよび関数の使われ方の解説は，次のよう 
な順で流れていきます. 

BASIC の print 文に相当する printf 文および input 文に相当する getchar 文を使 
ったもの.鶴亀算を例にとった四則演算では，ただ単に動作するプログラムだ 
けにはとどまらず，プログラムを整然と見やすくする方法やプリプロセッサを 
用いた場合などを示しました.条件判断の if 〜 else 文の応用や論理演算子といっ 
た特殊な演算子の考え方の解説.同じプログラムを多重分岐 else if 文と switch 
文で作った場合.ループを使い，各種のプログラムに応用したものなどを順を 
追って解説していきます. 
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メッセージ 


メッセージ 


関数 printf を使う 


/* PRINT MESSAGE */ 


mam() 

{ 

printf("Welcome to C programing 1\n"); 

} 

この プログラムは文字列を印字するためのものです. この プログラムを実行 
すると，ディスプレイ上に””（ダブルクオート）で囲んだ文字が出力されます. 

C では，プログラムはすべて関数から出来ています.つまり main( ) という 
のは「メインプログラムを実行する」という働きを持つ1つの関数です.一般 
に関数といえば， Y =2 X + 3 のようにある値（引数）に対して，対応する値を 
返してくるものですが，この main( ) というのはカッコの中に何もありません 
から，引数のない関数ということになります.そのすぐ下と一番最後にある丨1 
(中カッコ）は1 つの 関数がどこからどこまでかを示す ものです.； （セ ミコ 
ロン） は1文がここで終わることを表しています. 

通常，メインプログラムは他の関数を順次呼び出すことによって実行されま 
す.その関数は，プログラマが自分で書いたり， C に標準装備されているライ 
ブラリ関数を使用したりします.ここでは標準入出力関数である printf を使っ 
ています.ここでの printf はダブルクオートで囲まれた文字列を引数として， 
それを出力する関数となっています. 

文字列の最後にある \n (バックスラッシュエヌと読む）は，改行を行うた 
めの文字です. printf では改行が自動的には行われないため， \n をつけない 
と，出力した文字は次々につながってしまいます.なお， JIS のキーボードに 
は\がありませんので¥でも代用できます.この \ n のようなエスケープ文字 
は他に \b (バックスペース），\ t (タブ），（ダブルクオート），\，（シ 
ングルクオート），\\ (パ'ックスラッシュ），\0 (ヌルキャラクタ）等があ 
ります.各々試してみるとよいでしょう. 

メイン プログラムの頭にある/* PRINT MESSAGE */ は コメント 
文です. /* から*/までの文字はプログラムでは無視されますので，プログ 
ラムをわかりやすくするためになるべく利用するようにするとよ いでしょう. 
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第 2 部 C トレーニングサンプル編 


鶴亀算⑴ 


C における四則演算 


/* TSURUKAMEZAN */ 

mainu 

{ 

short crane , turtle; 

crane = (300 * 4 - 840) / 2; 
turtle = 300 - crane; 

printf("TSURU %3d KAME %3d\n" f crane, turtle ); 

} 

「鶴と亀が合わせて 300 頭おり，その足の数の合計は840本です.さて鶴と亀 
はそれぞれ何頭いるでしょうか」.子供の頃こんな問題を出されたことはありま 
せんか.この問題を解く公式は， 

〈鶴の数〉 =( く総数〉 *4 — く足の総数 〉）/1 
く亀の数〉=く総数〉一く鶴の数〉 

で与えられます.この式を使って作ったものが上のプログラムです.実行する 
と “TSURU = 180 KAME =120” と解答が表示されます. 

ここでは鶴の数を表す crane ， 亀の数を表す turtle という2つの変数が使われ 
ています. C では使用する変数のすべてはその関数の始めのところで宣言をし 
ておく必要があります . short crane ， turtle ; とあるのがその宣言文です. 

宣言文ではデータの型と，その型を持つデータが， （コンマ） で区切られて 
並べられます.ここでいうデータとは，変数，関数，配列なども含まれます. 
データ 型には， 

char (文字型） 

int (整数型） 

float (浮動小数点型） 

double (倍精度浮動小数点型） 

の4つがあり，このうち整数型には int の他に， 


short int 
long int 
unsighned int 


(短整数型） 

(長整数型） 
(符号なし整数型） 
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鶴亀算 (2) 


があります.これら 3 つの型では int の文字は省略可能で，省略するのがほとん 
どです.整数型では，機械によっては int が short または long と全く同義である 
場合があります.これは int がその機械が普通に処理する整数の長さによって決 
まるためです.自分の使っているコンパイラの マニュアルを よく読んで，どの 
型がどれだけの長さ（ビット）を持っているか，よく調べてください. 

C での四則演算は，ほかの言語と変わりなく +，一，*，/で*，/が優 
先されます.カッコの使い方も同様です.なお，整数の割り算では小数部分は 
切り捨てられます.これらを使って鶴，亀の数を計算して います. 

このプログラムの printf では文字列だけでなく変数の値を出力しています. 
変数または式の値は上の例のように％で始まる変換指示子と呼ばれるものによ 
って，どの位置にどのような形式で出力されるかを決定されます.上の例では， 
始めの％ 3 d は1番目の turtle の値を整数3桁で出力することを示しています.同 
様に％ 5.3 f は浮動小数点型の値を5文字幅で小数点以下3桁まで出力することを 
表しています.％に続く文字は他に，〇(8進数）， x (16 進数 ）， c (文字 ）， s 
(文字列），％ (’％’を出力）等があります. 

鶴亀算 (2) 鶴亀算⑴のプログラムをもっと見やすく 


/* TSURUKAMEZAN ver. 2 */ 


main() 

{ 

short sum, leg, crane, turtle; 

sum = 300; 
leg = 840; 

crane = (sum * 4 - leg) / 2; 
turtle = 300 - crane; 

printf("TSURU %3d KAME %3d\n", crane, turtle); 

} 

鶴亀算 (1) のプログラムを少し変えたものです.実行結果はまったく同じです. 
前のプログラムでは，鶴と亀の総数や足の本数が実際にどこに代入され ている 
のかはすぐにはわかりません.こうすればプログラムが見やすく，他の人にも 
わかりやすくなります.このように，定数であっても，その定数がある特定の 
意味を持つ場合には，変数名をつけてメインプログラムの始めのところで値を 
初期値として代入文を書いておく習慣をつけておくとよいでしょう. 
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鶴亀算⑶ 


プリプロセッサを使う方法 


/* TSURUKAMEZAN ver.3 */ 

浮 define SUM 300 
^define LEG 840 


main() 

{ 

short crane, turtle; 

crane = (SUM * 4 - LEG) / 2; 
turtle = 300 - crane; 

printf("TSURU %3d KAME %3d\n", crane, turtle); 


これも前のプログラムと同様に変更を加えたものです.前のプログラムでは 
定数を変数として前に出しましたが，これはプログラムの先頭に出してしまう 
方法です. #define というのはマクロ定義を行うもので，いうならば文字列を 
置き換えるものです.上の例では SUM と LEG がそれぞれ300，840に置き換え 
られています.ですからプログラム中でわざわざ変数を宣言する必要がありま 
せん.マクロ定義した文字は区別するために大文字で書くのが普通で，その有 
効範囲は，定義が行われたところからプログラムの最後までです.途中で定義 
し直すことも可能です.ただ” ”で囲まれた文字列では置き換えが行われませ 
ん.試しに上のプログラムに， printf (” SUM / n ”） ；という文を挿入しても300 
とは出力されません.各自で試みてください. 

実は， # deHne 文はプリプロセッサと呼ばれるものの一種です.プリプロセ 
ッサというのはコンハ。イルが始まる前に参照される指定のようなものと考える 
と理解しやすいでしょう.プリプロセッサは# define のほかに，# include, 

# if, # ifdef, # ifndef , # else , 井 endif ， # line があります. 

# include 文はあるファイルをファイル名をつけて指定し，そのファイルの内 
容全体と# include 文を置き換える働きをします.つまり，プログラムの最初ま 
たは途中に# include ” test, h” という文があると，その箇所に test, h のファイ 
ルの内容がそのまま揷入されたのとまったく同じことになります.これはよく 
使われる #define 文の集合などをファイルにしておいて，コンパイルするとき 
にプログラムの最初に呼び出して使う，という使われ方が多いようです. 

# if, 井 ifdef ， # ifndef , # else, #endif は「条件付きコンパイル」を行う 

ときに利用されます.また# line は仮の行番号とファイル名を与えるものです 
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2 文字の入れ替え 


ここは少しわかりづらいので説明は省略します.もう少し C の構文を覚えてか 
ら勉強した方がよいでしょう. 

プリプロセッサは，このように普通のプログラムとはちょっと違った働きを 
します.それはプリプロセッサの後にセミ コロンがない ことからもわかると思 
います. 

2 文字の入れ替え 標準入出力関数 


/* REVERSE 2 CHARACTERS */ 

main() 

{ 

short a , b; 

a = getchar(); 
b = getchar(); 
putchar(b); 
putchar(a); 


これは非常に単純な，入力した2文字を入れ替えて出力するプロ グラムです. 
ここで使われている getchar，putchar の2つの関数はそれぞれ端末に対し入出 
力を行う関数です.入出力を行う対象はファイルにすることも可能です. 

getchar ( ) は入力された文字の初めの 1 文字を持ってくる関数なので，これ 
をいくつか並べれば，それだけの文字を取り込むことができます. putchar () 
はちようどその逆の働きをしますが，こちらは何の値を出力するのかを引数と 
して渡す必要があります. 

プロ グラムを実行させて何文字か人力してリターンしてみてく ださい. 2文 
字より多く入力しても後了の文字は無視されてしまいます.逆に1文字しか入 
力しない場合は2文字目は改行コードが入り，1行あけて1文字だけを出力し 
ます.これはリターンキーを押したこと が getchar ( )で読み取られるためです. 


実行例 


① A B0 

② A0 

(DA B C D0 …… 

.…（入力） 

BA 

A 

BA ] 

…（出力) 
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数字のチヱック⑴ 


if 〜 else 文 


/* CHECK CHARACTER WITH NUMBER */ 

main() 

{ 

short a; 

a = getchar(); 
if (a >= 'O' ) { 

if (a <='9') 

printf("It's numeral.\n"); 

else 

printf("It's not numeral.\n"); 

} 

else 

printf("It's not numeral.\n"); 


人力した文字が数字 （ 0 〜 9 ) であるかどうかを調べて，数字であれば ” It’s 
numeral . そうでなければ ” It’s not numeral . ”とメッセージを出力す 
るプログラムです. 

このプログラムでは数字かどうかを判定するために， if 〜 else 文を使っていま 
す.この構文は， 


if ( 式） 

プログラム 1 

else 

プログラム 2 

で表わされ，式の値が真 （ 0でない）のときはプログラム1を，偽 （0) であると 
きはプログラム2を実行します. else 部は省略可能です.各々のプログラムは 
1文でも，中カッコ付きの複数の文でもかまいません. if 〜 else 文を書く場合， 
それに続く文は1段落として書き，どの if がどの else に対応しているかをはっき 
りさせて書くようにします. 

(式）にはどんな式を書いてもかまいませんが，よく使われるのはやはり関係 
演算子です.〉（大きい）， > =(大きいか等しい）， く（小さい）， <=( 小 
さいか等しい），二 = (等しい），！=(等しくない）があり，このうち == 
と！=は他の4つに比べて優先度が1段低いため，いっしょに扱う場合には注 
意が必要です （ ちょうど+ — * /の関係と同じです）. 
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数字のチェック (2) 


上のサンプルプログラムでは，始めの if 文で a と’0’の大きさを比べています. 

C では文字定数は’ ’（シングルクォート）で囲まれた1文字で表わされ，その文 
字のコードを値として持ちます.よって a と’0’の大小とはそれらの文字コードの 

値の大小を表しているのです.数字のコードは’0’， T ，. ’9’と続いていま 

すから， a が’0’より小さければそれは数字ではなく，1畨下の else 文に飛んで 
” It’s not numeral .” と表示されます. a が’0’以上の場合は次の if 文に移り， 
今度は’9’と比べます. a が’9’より大きい場合は，やはり数字ではありませんの 
で，対応する else 文に飛んで” It’s not numeral .” と出力します. a が’9’以下 
の場合は数字であることがわかりますから，ここで始めて， ’’ It’s numeral .” 

と表示されるわけです. 

数字のチェック (2) 論理演算子 


/* CHECK CHARACTER WITH NUMBER ver.2 */ 

main() 

{ 

short a; 

a = getchar(); 

if (a >= ，〇 • && a<='9') 

printf("it's numeral.\n"); 

else 

printf("It's not numeral.\n"); 


前のプログラムは同じ文が 2 つあるなど結構むだがありました.それを簡潔 
にまとめたのが上のブログラムです.動作はまったく同じです. 

ここでは論理演算子が使われています. if 文の式を見てください.&&とい 
うのは論理積（かつ）を表します.つまり 「 a が’0’以上でかつ a が’9’以下」のとき 
” It’s numeral .” が表示され，それ以外のときは” It’s not numeral .” が表 
示されます.これは前のプログラムと論理的に同じことをいっているのです. 

このような論理演算子は他に I 丨（論理和：または）があり，&&や丨丨で連続 
した式は左から右へ評価されます. 

なお， if 文では条件式の後に； （セミコロン） は付けません.付けてしまう 
と条件が真となっても実行する文がなくなってしまいます.注意してください. 
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1日のあいさつ⑴ 


else if 文 


/* PASS THE TIME OF DAY */ 

main() 

{ 

short a; 

a = getchar(); 

if (a == 'm 1 || a == ’M 1 ) 

printf("Good morning.\n"); 
else if (a = =='a* || a == 'A') 

printf("Good afternoon.\n"); 
else if (a == 'e' || a == 'E') 
printf("Good evening.\n"); 

else 

printf("Good night.\n"); 


対応する英文字 1 字を入力することによって ， ’’Good morning.”，’’Good 
afternoon.’’，’’Good evening.”，’’Good night .” とコンピュータがあいさつを 
返す プログラムです. 

ここでは多重分岐を行うために else if 文を使っています.これは前に勉強し 
た if 〜 else 文の else 節にもう1つ if 文を続けた形になっています. 

if ( 式 1) 

プログラム1 

else if ( 式 2) 

プログラム2 

else 

プロ グラム n 


たとえば，上の サンプルプログラムを 実行して ’ A ’ を入力すると，その値が変 
数 a に代人され，初めの if 文の式が評価されます. a は’ m ’ でも’ M ’ でもありま 
せんから， else 節にスキップし，次に続く if 文の式が評価され， a ==’ A ’ の 
式が真となりますから，次の文を実行 （’’Good afternoon .” を出力）して終わ 
ります. 

このように else if 文では，条件式が真になるものを捜して次々とスキップし 
ていき，すべての条件に合わなかった場合は最後の else 節の文を実行する働き 
を持っています. 
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1 日のあいさつ (2) 


1日のあいさつ (2) 


switch 文 


/* PASS THE TIME OF DAY ver.2 */ 

main() 

{ 

short a; 
a = getchar(); 


switch(a) { 

case 

'm': 

case 

'M '： 


printf("Good morning.\n"); 
break; 

case 

'a 1 : 

case 

'A' : 

printf("Good afternoon.\n"); 
break; 

case 

'e': 

case 

'E '： 


printf("Good evening.\n"); 
break; 
default: 

printf("Good night.\n"); 
break; 


前のプログラムを switch 文を使って書き直すと上のようになります. 

これと前のプログラムを見比べてもらえばよくわかると思いますが， switch 
文は，まず直後のカツコの中の式を計算し，その値がどの case に当てはまるの 
かをすべて調べます.当てはまる case があればその case で文が実行され，すべ 
ての case に当てはまらない値の場合は default :の文が実行されます. case, de- 
fault の並ぶ順はどちらが先でも結構です. default の部分は省略可能です. 

break とあるのは switch 文から強制的に抜け出す文です.多重分岐でなぜこ 
れが必要かというと， switch 文ではある当てはまる case が存在した場合，そこ 
から下の文はすべて実行してしまうからです.上の例でいえば，もしすべ ての 
break 文がない場合， ’M’ を入力すると「おはよう」から「おやすみ」まで一気 
にあいさつされて面嗅うことになります.これは特殊な使い方では有効かも知 
れません.あまり使わないほうがよいかもしれません. 

また default がないときは最後の case の後にも break 文をつけるようにすると 
よいでしょう.これは何の意味もないように思えますが，将来 case を加えると 
きのちょっとしたバグ防止法になるからです. 
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整数の和を求める⑴ _ while 文，インクリメント演算子 

/* SUM OF NUMBER 1-50 */ 

mam () 

{ 

short sum, 1 ,limit.; 

sum = i = 0; 
limit = 50; 

while (i <=limit) { 
sum = sum + i++; 

} 

printf("SUM = %4d\n", sum); 

} 

1 〜 50 (プログラムでは 0 から）の整数の和を求めるプログラムです. 

このプログラムではループを 行うために while 文を使って います. while 文の 
形式は， 


while (式）| 

プログラム 1 

I 

で与えられます.プログラム1が1文のときは中カッコは省略可能です . while 
ではまず式が計算され，その値が真 （0 でない）のときブログラム1を実行し， 
再度式を計算してその値が偽 （ 0 ) になった時点でループを抜けます. 

サンプルプログラムを見るとまず変数の初期化が行われています.ここで目 
新らしいのは sum = i =0; という表現です.これは代人文が値を持ち，左から右 
へ代人されるためにこういうことが可能となるのです.つまり，まず i 二0で i 
に0が代人され，また i = 0という文が0という値になるので sum の値も0にな 
るのです.これは多くの変数に同じ値を一度に代人できるので便利です. 

次に while 文の中に i + + という表現があります.これはインクリメント演算 
子と呼ばれ，変数の値を1増やすものです.+ +の記号は変数の前にも後ろに 
も付けることができますが， sum + + + i は i を1増やしてから sum をカロえるこ 
とを表すのに対して ， sum + i + +では i を sum に加えてから i を1増やす，と 
いうように，インクリメントが行われる時期が違ってきます. 

同じ用法で1を引く働きを持つデクリメント演算子（一 一） もあります. 
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整数の和を求める (2) 


整数の和を求める (2) for 文，代入演算子 


/* SUM OF NUMBER 1-50 ver.2 */ 


main() 

{ 

short sum, i,limit; 

sum = 0; 
limit = 50; 

for (i = 0; i <=limit; i++) 
sum += i; 

printfC'SUM = %4d\n ", sum); 

} 

前のページのプログラムを for 文を使って書き換えてみました.他にも少し変 
えたところがあります. 

for 文と while 文は書き方が違うだけで働きはほとんどいっしょです.どちら 
を使うかは好みの問題といえるでしょう. for 文の形式は， 

for( 1 式； 2 式； 3 式） 

プログラム 1 


となっています.1式は初期設定の式で，上の例では i = 0 となっています. 2式 
は実行条件で，この式の値が真 （ 〇でない）のときはプログラム1が実行されま 
す.そして次に3式の再初期化が実行されてまた2式が評価されます.つまり 
while 文で書くと，次のようになります. 

1 式； 

while ( 2 式 ）1 
プログラム 1 
3 式； 

I 

また， for 文の中の3つの式はどれも省略可能ですが;（セミコロン）は省略する 
ことはできません. 

for 文の次にある sum += i ; というのは，代人演算子と呼ばれるもので ， sum 
= sum + i ; とまったく同じことです.これは 「 sum に加えるのは i 」と考えるとわ 
かりやすいでしょう.この他に一=，*=，/二等が使えます. 
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整数の和を求める (3) d 。 〜 while 文 


/* SUM OF NUMBER 1-50 ver. 3 */ 

main() 

{ 

short sum, i , limit; 

sum = i = 0; 
limit = 50; 

do { 

sum += i ++; 

} while (i < =limit); 
printf("SUM = %4d\n", sum); 


ループを 作るにはもう 1 つ do 〜 while 文があります.これを使って整数の和 
を求める プロ グラムを書くと上のようになります. 
do 〜 while 文の形式は， 
do 

プログラム 1 

while ( 式）； 

となります.式については while 文のときと全く同じです. 

do 〜 while 文が while 文や for 文と違う点は， while や for がループの初めのとこ 
ろで条件判断を行うのに対し， do 〜 while 文ではループの一番最後で条件判断 
を行う点です.ですから，どんな条件を与えても1回はループの中の文を実行 
することになります.試しに今までの3つのプログラムの limit の値を0， i の 
初期値を1にしてコンパイルしてみてください.前の2つのプログラムでは， 
条件判断の値が偽 （ 0) となってしまうために， sum に i の値を加えずに結果を 
出力し，結果は0となります.しかし do 〜 while 文を使ったプログラムでは， 
sum に i の値を加えたあと条件判断を行いますから，結果は1となります. 

このように， C には3種類のループがあります.各々の特徴をつかんで見や 
すく効率のよいプログラムを組んでください. 
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幾何模様 


幾何模様 


for 文のネステイング 


/* GEOMETRICAL PATTERN No. 1 */ 


実行例 


main() 

{ 

short 1 , j; 

for (i =1;i <=10; i++) { 

for (j =1;j <= i; j ++) 
printf ("$，•）； 
printf("\n"); 


$ 

$$ 

$$$ 

$$$$ 

$$$$$ 

$$$$$$ 

$$$$$$$ 

$$$$$$$$ 

$$$$$$$$$ 

$$$$$$$$$$ 


/* GEOMETRICAL PATTERN No.2 */ 


実行例 


浮 define PI 3.1415926 

main() 

{ 

short i, j, step, width; 
double k, sin(); 

step =10; 
width = 20; 


$$$ 

$$$$$$ 

$$$$$$$$$$ 
$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$? $$$ 2 $ 


for (i = 0; i <= 90; i += step) { 

k = sin(i * PI / 180.0) * width; 
for (j =1;j <= k; j++) 
printf ("$")； 
printf("\n"); 


上のプログラムは 実行 例のような 模様を描く プログラムです. for 文2つを入 
れ子（ネスティング）させて， i の値によって’$’を並べる数を決定しているわ 
けです.下のプログラムでは値の変化のために三角関数を使ってみました. 

三角関数，その引数は共に倍精度浮動小数点の値を持つため，初めのところ 
で宣言をしておきます.三角関数の引数の単位はラジアンですからカッコの中 
に変換する式が書いてあります.このカッコの中では整数型と浮動小数点型が 
いっしょになっていますが，こういうときは，整数型は自動的に浮動小数点型 
に変換されるために，めんどうなことは何も起こりません. 
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奇数の和を求める continued 


/* SUM OF ODD NUMBER 1-100 */ 

main() 

{ 

short sum, i,limit; 

sum = 0; 
limit = 100; 

for (i =1;i < =limit; i + +) { 
if (1(i % 2)) 
continue; 

else 

sum += i; 

} 

printf("SUM = %4d\n", sum); 


/* SUM OF ODD NUMBER ver.2 */ 

main() 

{ 

short sum, i,limit; 

sum = 0; 
limit = 100; 

for (i =1;i <=limit; i += 2} 
sum += i; 

printf("SUM = %4d\n", sum); 


1 から100までの数のうち，奇数のみを加えていくプログラムを2種類作っ 
てみました.プログラムとしてはもちろん下のプログラムの方がまとまってい 
ます（もっとまとめることもできます）が，上のプログラムには新しい構文が 
いくつか含まれていますので，その説明のために出してみました. 

!(式）というのは論理否定演算子のことで，式の値が真 （0 以外）のときは 
0の値となり，偽 （ 0 ) のときは1となります.つまり if (丨 （ i %2)) は， if (( i %2) 
== 0 ) と同義です. 

%はモジュロ演算子と呼ばれるもので，左の値を右の値で割った余りを値と 
して持ちます. 

continue 文はループの文をそこでストップさせ，ループの頭に戻る動作をさ 
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整数の和と奇数の和 


せる文です. for ループであれば， continue 文が来ればすぐ再初期化の式を実行 
して条件判断を行います. 

ですから上の例では， i を2で割った余りが1のときは sum に i を加え，0 
のときはなにもしないでループの再初期化 （ i のインクリメント）が行われ， 
これを続けていき奇数の和を求めているのです. 


整数の和と奇数の和 for 文の特殊な使い方 


/* SUM OF NUMBER 1-50 AND ODD NUMBER 1-100 */ 

main() 

{ 

short suml,sum2 , i, j t limit; 

suml=sum2 = 0; 
limit = 50; 

for (i =1,j =1;i <=limit; i ++, j += 2) { 
suml += i; 
sum2 += j; 

} 

printf("SUM1=%4d SUM2 = %4d\n", suml,sum2); 

} 

上のプログラムは，前述の整数の和と奇数の和を 1 つの for 文で求めようとい 
う，小々乱暴なプログラムです.このプログラムももっとわかりやすく書ける 
のですが，ここでは for 文の特殊な使い方の例として見てください. 

C では，（コンマ）で連結された式の並びは左から計算され，一番右の式の 
値を持ちます.これをコンマ演算子と呼びます.そしてこれを for 文に利用する 
と並列処理を行うことができるのです. 

プログラムを見てわかるように， i と j の2個のハ。ラメータを， Hi 1ずつ 
j は2ずつ別個に増やして，それぞれの合計に加えています.コンマ演算子の 
性質から，初期化の箇所の式と再初期化の式のどちらか，または両方とも i と j 
の式を人れ替えても，動作が同じであることが理解できると思います. 

また同じコンマでも，宣言文での変数等を分けたりするコンマは演算子では 
ありませんので注意してください. 
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円の面積 


scanf 関数とポインタ 


/* AREA OF CIRCLE " 

浮 define PI 3.1415926 

main () 

{ 

float radius ; 
do { 

scanf ("% f ", Sradius ); 

printf("AREA = %10.3 f \ n ", PI + radius * radius ); 
} while (radius != 0.0); 


円の面積を求めるプログラムです.半径の値を人力すると，その半径の円の 
面積が出力されます. 0を人力すると終了します. 

ここでは scanf という関数が登場します. scanf はちょうど printf の逆の働きを 
するもので，変数に数値あるいは文字列を入力する関数となっています. ”％ f ” 
というのは，数値を浮動小数点として変数に取リ組みなさいということです. 
scanf も printf と同様に％に続く文字として d (10 進数），〇 (8 進数）， x (16 進 
数 )， c (文字 ）， s (文字列）等が使えます. 

しかし， scanf のもう1つの引数を見ると， & radius と変数名の前に&がつい 
ています.&は次に続く変数のアドレスを示す単項演算子です.つまり scanf 
では変数の値を引数とするのではなく，その変数のアドレスを引数とするので 
す. 

ここで少し，ポインタ という ものに ついて 説明を しましょう. ポインタ とい 
うのはあるデータ型の変数（または配列）のアドレスを持っている変数です. 
ポインタは通常その先頭に*が付いた形式で型宣言されます.たとえば， 

flort var, * varp ; 

という宣言をすると， varp = & var ; という式で浮動小数点型の変数 var のアドレ 
スが varp に代入されます.また* varp は varp が 指し示し ている 内容，つまり 
var そのものと何ら変わりないものとなります . *varp = 13.5; と書けば ， var 
に13 • 5という値が代人されます. 

ポインタについては，これからも出てきますので，少し頭の中にとどめてお 
いてください. 


62 



入力値の割合 

入力値の割合 配列の使ぃ方 


/* RATE OF INPUT NUMBER ホ/ 

main() 

{ 

short i, j, sum; 
short a[256 ]; 

sum = 0; 

for (i = 0; i < 256; i++) { 
scanf("%d% &a[i]); 
if (a[i] == 0) 
break; 

else 

sum += a[iJ; 

} 

for (j = 0 ； j < i; j ++) 

printf("%5d %5.2f%%\n", 

a[j] , a[j] * 1.0/ sum * 100.0); 

} 

整数の値を〇〜32767の範囲で入力して，最後に0を入力すると，入力した 
数値と，全体に対する割合を表示するプログラムです.入力できる数値の数は 
256個までです. 

このプログラムでは配列を使っています.配列の宣言は，変数と同様に型宣 
言を行い，配列名のあとに大カッコで囲まれた，配列の要素の個数が示されま 
す. C では配列の添字は0から始まるため，上記のプログラムでは a [ 0 ] 〜 
a [255] までの256個の短整数型の配列が宣言されたことになります. 

C における配列名はそのまま0番の要素のアドレスを示します.これはポイ 
ンタと似ていますが，ポインタが変数であるのに対して，配列名は変数ではな 
い点が違います.また a + i は a の配列の i 番の要素のアドレスを示すので， 
上のプログラムの中の scan f の引数である & a [ i ] はそのまま a + i に置き換え 
ることが可能です.同様に a [ i ] は* ( a + i ) と置き換えることができます. 

プログラムの最後の計算では整数型の配列を浮動小数点型に変換するために 
わざわざ 1.0 を掛けています.こうしないと，整数型同士で割り算を行う場合， 
小数点以下が切り捨てられてしまうからです. 
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階乗計算⑴ 新しい関数を作る 


/* FACT */ 


mam() 

{ 

short rr; 
long ffact(); 

printf ("INPUT NUMBER "); 
scanf ( ,, % d " , & n ); 

printf("ANSWER = %ld\n", ffact(n)); 

} 

long ffact(n1) 
short nl; 

{ 

short i; 
long f =1; 


if (! nl) 

return(1); 

else 

for (i =1;i <= nl;i++) 
f *= i; 
return(f); 

} 

これは階乗を求めるプログラムです.数を人力すると ” ANSWER = ” と答え 
が表示されます. 

ここでは独自に階乗を求める関数 ffact を作っています.この関数は long 型の 
値を返してきますから，関数名の箇所と，メインプログラムで型の宣言が必要 
になります.通常の整数型の場合，これらの宣言は省略可能です. 

関数名の次に，引数の型の宣言が必要です.これは中カッコの前に行います. 
後は main ( ) と同じように，引数の他に使用する変数を宣言して，文を書けば 
よいのです. 

return 文はカッコの中の値を関数の値として返す文です.ですから ffact を呼 
んできた場合は，その引数が 0 のときは 1 の値を返し，そうでないときは for 
文によって階乗を計算し，その結果の値を返します. 

C での引数は値が与えられるだけなので，引数の値を関数内で変えてしまっ 
てもメインプログラムでの値はまったく变わりません.これを call by value 
(値による呼出し）と呼んでいます. 
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階乗計算 (2) 


階乗計算⑵ 


再帰呼び出し，条件演算子 


/* FACT ver.2 */ 

main() 

{ 

short n; 
long ffact(); 

printf ("INPUT NUMBER •，）； 
scanf("%d", &n); 

printf("ANSWER = %ld\n", ffact(n)); 

long ffact(n1) 
short nl; 

{ 

return (nl== 0?1:nl * ffact(n1 - 川； 


階乗を求める関数を再帰呼び出しを使って書き換えると，上のプログラムと 
なりました. 

再帰呼び出しとは，関数が値を計算する際に_分自身を他の関数のように呼 
び出して使うことです. ffact の関数の中で ffact が呼ばれているのがわふると思 
います. 

また，ここでは条件演算子というものを使っています.これは， 


1 式？ 2 式 •_ 3 式 


の形式で与えられるもので，1式が真 （0 以外）ならば2式の値を，偽 （0) な 
らば3式の値を全体の値とするものです. 

再帰呼び出しのプロセスを追ってみると，たとえば4 !を求める場合，関数 
は4を0と比べます. 4 = 0でないので，4 * ffact ( 3 ) の値が答えとなります 
が ， ffact ( 3 ) ではまた3を0と比べ， 3 * ffact ( 2 ) を値とし，また ff act ( 2 ) 

は2を0と比べ . というようになり， 4 * ffact ( 3 )—4 * ( 3 * ffact (2)) 

— 4 * 3 * ( 2 * ffact ( 1))— 4*3*2*(1 * ffact ( 0 )) — 4*3*2*1* 
1というプロセスで24という値を返してくるのです. 
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最大値を求める 関数の引数とポインタの利用 


/* MAXIMUM NUMBER 

mam() 

{ 

short max, inp; 
max = 0; 


do 


printf("INPUT NUMBER 
scanf("%d", &inp); 
checkmax(&max, &inp); 


} while (inp != 0 )； 

printf("MAXIMUM = %5d\n", max); 


checkmax(pm, pi) 
short *pm, *pi; 


if (*pm < *pi) 

氺 pm = *pi; 


整数を入力していき，最後に〇を入力するとそれまで人力した数の最大値が 
表示されます.なお人力できる整数は32767までです. 

このプロ グラムでは値を入力する度に checkmax という自作の関数を呼び出 
して， max より inp が大きい場合は max に inp の値を代人しています.前にも説 
明した通り，関数への引数はその値だけしか渡さないため，呼ばれた側の関数 
から，呼んだ側の変数の値を変えることは不可能です.そのため&で変数のア 
ドレスを渡すことにより，関数から値の変更がきくようにしてあるわけです. 

checkmax 関数が呼ばれる際には引数はアドレスとして渡されるため，引数 
宣言はポインタとして行われなければなりません.そして変数名に関係なく， 
関数内のボインタによって値が代人されるのです. 

このように，何か変数の値に介人するような関数を作る場合は，ポインタを 
利用しなければ，何の意味もない関数を作ることになりかねません. 
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行列式の解 


行列式の解 


多次元配列 


/* DETERMINANT */ 

main() 

{ 

short det ; 

static short a[3][3] = { 

{1, 5, 3}, 

{2, 3, 1}, 

{2, 4, 3} 

}? 

det = a [0][0] 

* (a[1][1]* a[2][2] - a[1][2] * a[2][1]); 
det -= a[0][1] 

* (a[1 ][0] * a[2][2] - a[1][2] * a[2][0])? 
det += a[0][2] 

* (a[1][0] * a[2][1] - a[1][1]* a[2][0)); 
printf( "DETERMINANT = %5d\n", det )； 


3 行 3 列の行列式を求めるプログラムです. 

C での多次元配列は，1次元の後ろにまた大カッコをつなげて配列の大きさ 
を宣言することによって使うことができます. 

配列には，初期値を与えることが可能で，上記の例のように次元ごとに中力 
ッコで分けて書いたり，また内側の中カッコを省略して書く場合もあります. 

配列宣言のところの static とは，変数の記憶クラスを指定するものです.記憶 
クラスとは，変数が持つ性質を決定するものです. 


auto 

( 自動） 

static 

( 静的） 

extern 

( 外部的） 

register 

( レジスタ） 


の4つがあり，通常は auto になっています. static の指定をすると，その指定 
された関数の中でないと参照はできませんが，そのデータはずっと持ちつづけ 
ます. extern ではデータをずっと持ちつづけることは static と同じですが，そ 
のデータは他の関数からでも extern の変数定義が行われてレ、れば，參照するこ 
とができます. register は，その使っている機械のレジスタにおかれるため， 
移植性のよくないプログラムを作ってしまうおそれがあります.ただし直接レ 
ジスタに値を与えるのですから，演算 スピー ドは速くなります. 
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月齢計算 構造体の応用 


/* THE MOON'S AGE */ 

main() 

{ 

struct { 

short year; 
short month ; 
short day; 

} date; 

short rev; 
float age; 

printf( m YEAR = "); 
scanf("%d n , &date.year); 
printf("MONTH = ")? 
scanf("%d", Sdate.month); 
printf("DAY =") ； 
scanf("%d", Sdate.day); 

switch(date.month) { 

case 1 : 

rev =1; 
break; 
case 2 : 

rev = 2; 
break; 
case 3 : 
case 5 : 



break; 
default: 

rev = 0 ; 

break ; 

} 

age = ((date.year - 1740.0) * 210.0 / 19.0 - 2.0 
+ date.month + date.day + rev) / 30.0; 
while (age > 1.0) 
age - =1.0; 
age *= 30.0; 

printf("MOON'S AGE = %3.1f\n", age); 


このサンプルプログラムは月齢（月の満ち欠けを表す日数）を計算するもの 
です.プログラムを走らせると年，月，日をきいてくるので，順に人力すると 
その日付の月齢を計算して表示します.なお，「年」は西暦で1750年から2200年 
までの間のみ有効です. 
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月齢計算 


簡単に プログラムを 説明すると，まず日付の構造体 date ， 修正値 rev ， 月齢 
age の各変数を宣言します.次の switch 文では月齢計算の修正値を求めていま 
す.そして，月齢計算を行い最後に表示をします （ while 文は age を1以下にす 
るためです）. 

使っている数式は次の通りです. 

一 （Y-1740)X210 + 19 — 2 + M+D + N 

B — 30 

月齢： |B - I N T (B)| X30 
Y :西暦年（1750〜220 0) 

M :月 
D :日 

N :修正1月一>1，2月->2， 3,5——1，その他の月は0 

また，月齢の目安としては次を参考にしてください. 

0 :新月 3:三日月 7:上弦の月（半月）15:満月 
22 :下弦の月（半月） (30) :新月 

構造体は何らかの関連がある変数の集りに1つの名前を付け，まとめて扱か 
えるようにした ものです . これを使うと複雑なデータ構造や プログラムの 流れ 
をすっきりさせることができます.一般にレコードと呼ばれるデータ型式に使 
うことが多く，たとえば このサンプルプログラムで 使って いる 日付や名簿， 図 
書目録な どに， また， C 言語ではシステム コールに その マシンのレジス タの構 
造体を使っています. 

構造体に許されているのは，そのアドレスを得ることと，その メンバーを ア 
クセスすることだけです.したがって構造体の代入や，関数への引き渡しは直 
接できません.そこで構造体のポインタがよく使われます.また構造体は入れ 
子にしてもよく，共用体と一緒に使っても構いません.さらに，ポインタを使 
えば自分と同じ型の構造体を参照することも可能です.これによりポインタで 
つながれたリスト構造を持たせることができます. 

共用体およびビット•フィールドの考え方も構造体と一緒です.ただ，共用 
体はそのメンバーのオフセットが0であり，ビット •フイー ルドはそのメンバ 
一を数ビットに圧縮したものです. 
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main() 

{ 

static char 
{'O', 
•8，， 

char hex[5] 
short dec, 


for (? ? ) { 

for (i = 0; .i < = 3; i++) 
hex[i] = ， 1 ; 

hex[4 】 = 1 \0'; 
printf("DECIMAL ="); 
scanf("%d M , &dec); 
if (dec == 0) 
break; 

for (i = 3; dec != 0; i--) { 
num = dec % 16; 
dec /=16; 
hex[i] = data[num]; 

} 

printf ( "HEXADECIMAL = %s\n\n ，，， hex); 


10 進数をそれに対応する 16 進数に蛮換するプログラムです.実行させると， 
“DECIMAL = ” と表示されて入力持ちとなりますから，何か10進数を入力して 
ください.すると HEXADECIMAL :” と，16進数が表示されます. 0を人力 
すると終わります. 

プログラムではまず配列を初期化して文字列を代入しています.この配列が 
16進数のデータとなるわけです. for ( ; ;) は条件判断の項がないため無限ノ1 
プとなります.ループの終了は break 文によっています.次の for ループは16進 
数の文字列を代人する配列を初期化します. printf 関数で文字列を表示する場 
合，引数はその配列名となり. 70’までの文字列を出力するのです . hex [4] 
=’/〇,；という文はそのために人れています.プログラムの流れから見れば，こ 
の文は一番初めにおき，ループの中に人れる必要はないのですが，こうした方 
が働きがわかりやすいと思い，ここに入れています.あとは人力された数値を 
16で割って余りを取り出す作業をくり返し16進数のデータを参照して16進数に 
変換しています. 


10 進— 16 進変換 ループと 配列 

/* DECIMAL SYSTEM TO HEXADECIMAL SYSTEM */ 


6 E 

5 D 

4C 


6 V V 

12 A 


i 


a I Im 
d 1 9 u 
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16 進— 10 進変換 


16 進—彳 0 進変換 関数 strlen と index の利用 


/* HEXDECIMAL SYSTEM TO DECIMAL SYSTEM */ 

main() 

{ 

static char data[16]= 

{•O', ’r, , 2 , ; '3' , '4 1 , '5' , '6', 'V • 
'8', '9', 'A', 'B', 'C', 'D', 'E', 'F '}； 
char hex[5], *index(); 
short dec, fig, i, j , k; 

for (； ； ) { 
dec = 0; 

printf("HEXADECIMAL ="); 
scanf("%s", hex); 
if (hex[0] == 'O') 
break; 

for ( l=strlen(hex)-1,j = 0; 

i >= 0 ； i—, j++) { 
rig = index(aata , hex[i]) - data; 
for (k = 0; k < j; k++) 
fig *=16; 
dec += fig; 

} 

printf("DECIMAL = %5d\n\n", dec); 


前のプログラムとは逆に 16 進数から 10 進数に変換するプログラムです.実行 
すると “ HEXADECIMAL 二”と出力されますので4桁までで人力してくださ 
い.英字は大文字で入力してください. “ DECIMAL 二”と10進数に蛮換され 
て出力されます. 0を入力すると終了です. 

メイ ンのループは 前の プロ グラムと変わりありません. 2つ目の ループに あ 
る strlen という関数は文字列の長さを調べる標準ライブラリ関数で，引数は文 
字列の人っている配列の配列名です. 

また index という関数は文字列から文字を探す関数でその値は文字が 人って 
いるアドレスとなります.ですから第1パラメータに配列のポインタを引くこ 
とによって配列の添字が得られるのです.このプログラムでは，その添字を16 
進数の各桁の数字として利用し，桁の数だけ16を掛けて加えることで10進数に 
変換しています. 

このプログラムも前のプログラムも， C のプログラムとしてはあまりエレガ 
ントではありません . 各自改良にチャレンジしてみてください . 
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左ロール 


シフト演算子“くぐ’の使用 


/* left roll */ 

浮 define SIZE sizeof(unsigned)*8 

unsigned lro 丄 l(word, bit) 
unsigned word; 
unsigned char bit; 

{ 

unsigned tmp; 

tmp = word > > (SIZE - bit); 
word = word < く bit; 
return(word | tmp); 


main() 

{ 

unsigned word, lroll(); 
unsigned char bit; 

printf("word(hexadecimal)?"); 
scanf("%x ", Sword); 
printf("roll bit(decimal )?")； 
scanf( M %d", &bit); 

printf ( "%x( hexadecimal)\n" f lroll (word, bit ”； 


このサンプルプログラムは，通常はアセンブラが使われる左口ール命令を C 
で記述したものです.関数として作ってありますが，単体でも動作するように 
メインルーチンを付けてあります. 

左ロールする値 （16 進数）とロールするビット数 （10 進数）を人力して下さ 
い.左ロールされた値 （16 進数）が表示されます. 

口ールするビット数に int の範囲，すなわち10進数の16を超える数を人力する 
と表示する値は意味を持たなくなります. 

プログラムは 単純なものです.左に ロールを させるにはシフト演算子“ 〈く ” 
を使用すればよいのですが，単にそれだけでは右側のシフトされたビットが消 
えてしまいます.そこで，あらかじめ消えてしまうビットを右にシフトしてお 
きます.このとき unsigned と宣言してあるため最上位ビットから0がつめられ 
ます.最後に左シフトしたものと OR をとり，関数値として返しています. 
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日数計算 


日数計算 


変数としてのアンダースコア 


/* THE NUMBER OF DAYS */ 

main() 

{ 

long s vear , s 一 month, s day, 
e year, e month, e_day, 
daycount(), year , month, day; 

printf ("START YEAR ? M ) ； 
scanf("%ld", &s year}; 
printf(" MONTH ?")； 

scanf("%ld", &s month); 
printf(" DAY ?")； 

scanf( n %ld", &s 一 day); 
printf( n END YEAR ?")； 
scanf("%ld", &e 一 year); 
printf(" MONTH ? ")? 

scanf("%ld", &e 一 month); 
printf(" DAY ?"); 

scanf("%ld M f &e_day); 

printf("\n%ld DAYS\n", daycount(e year, e_month, 
e day) - daycount (s yesrr , s month, s day)); 

} 

long daycount(year, month , day) 
long year f month, day; 

{ 

if (month >= 3) 
month++; 
else { 

year--; 
month +=13; 

} 

day += month * 30.6; 
day += year * 365.25; 
day -= year / 100; 
day += year / 400; 
return(day - 428); 

} 

ある年月日からある年月日まで，何日あるのかを求めるプログラムです.実 
行すると，始めの年月日，終りの年月日をそれぞれ聞いてきますから入力して 
ください.年は西暦で人力します.すると日数が計算されて表示されます. 

目新らしいことは特にありませんが.’—’（アンダースコア）が変数の一部と 
して使うことができることに注意してください.見やすいプログラムを作るた 
めによく使われます.ただ’は単独では変数として使えません. 
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第 3 部 C ツール 編 


本編の読み方 

本編は UNIX-like なプログラミング•ツールを主体とした，ユーテイリテイ 
プログラムのソースリストを公開したものです. 

本編は各 OS 別に次の3部からなっています. 


0 S 名 

対象 GPU 

開発処理系 

CP / M -80 

Z 80(8080) 

AZTEC CII ( ver .1.06) 

MS-DOS 

8086, 8088 

OPTIMIZING C ( ver .2.10 )，DeSmet C ( ver .2.2) 

0 S -9 

6809 

MICROWARE C ( ver .1.1.4) 


本編では UNIX - like なシステム である MS-DOS と OS -9 では UNIX コマン 
ドの実現を， CP/M では CP/M + -like およびオリジナルな ユーティ リテ ィコマ 
ンドの作成を目指しました. 

ソース コードは すべて オリ ジナルで あり，既製の 0 S のソース コードを利用 
したものではありません.また著作権は当会および技術評論社に帰属します. 

依存する機種が明示してあるプログラム（たとえばグラフィック • パッケー 
ジ） 以外は各 OS にのみに依存しています. 

各プログラムには， Program Outline で概略を， Explanation で具体的な使 
用法を説明してあります.また， Attention の欄があるプログラムは，コンパ 
イル等に特別な注意が必要なものです. 


正規式の使用法 


今回，収録したツールの中には UNIX のものを他の 0 S の上で実現したもの 
がかなり含まれています. 

これらのツールの 大半は UNIX と同様に正規式 (regular expression ) によ 
る表現が扱えます. 

正規式は簡単にいえば，特殊な意味を持った文字（メタキャラクタ）を使って 
複雑なことを簡略に表記するものです. 

では，代表的なものを順を追って解説していきます. 
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正規式の使用法 


①“八”と 

“へ”（サーカムフレックス）は行の初めを表し，“$”（ダラー）は行末を表し 
ます.ただし，規定の位置にない場合は意味を失います. 

例 a ABC - ABC で始まる行を表す 

ABC $ -文末が ABC で終わる行を表す 

A$BC - “A$BC” という文字列を表す 

-空白行を表わす（これは頻繁に使われる） 


②“ •” 

“ ”（ピリオドは1対1で他の文字と対応します.ただし，空白やピリオド 

自身は考慮されません.また行単位で対応するため，2つの行にまたが っ ては 
対応しません. 

例 A … - A で始まる 4 文字の単語に対応する 

八 A …-行の先頭にある A で始まる 4 文字の単語に対応する 

A..¥ •あるいは A..\. - A で始まる 3 文字の単語とピリオドに 

対応する 


®“[” と“]”と“一’’ 

“[” と“]”（大カッコ）で囲まれた文字は対応すべき文字の集まりの規則を 
表しています.また“-” （ハイフン） でつなぐことによって ASCII 順に略記で 
きます. 

例 [ Aa ] - A と a の双方に対応する 

[ A - Z ] - A から Z までの文字に対応 

[ A - z ] - すべての大文字と小文字との間に含まれる特殊文字 

に対応する （ ASCII コード表参照） 
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齦 / l-i_ 


TINY EDITOR 

短いフアイルの作成のために 


■ Program Outline 

SUBMIT ファイルなどの短いファイルを作成するのに， ED などのエディタ 
を使うのはめんどうなものです.とはいっても， PIP を使用すると CR と LF を 
別々に入力しなければなりません.そこで，短いファイルの作成のためにこの 
ようなエディタを作ってみました. 

■ Explanation 

COM ファイル名は TED . COM とします. 

コマンドラインからの入力は次のようになります. 

A>TED FILENAME 

この入力によって， FILENAME のファイルがオープンされます.つづいて 
キーボードからテキスト行を入力します.このとき，1行の入力は CR によっ 
て終了することになります.すべての行を入力し終わったなら， ESCCR を入 
力することにより，エディットを終了して下さい. CR を入力しないかぎり，1 
行の範囲で何度でもエディットを行うことができます. 

ファイルをセーブするにあたって，このエディタではディスク上に同名のフ 
ァイルがあった場合， ED などのようにディスク上のファイルをバックアップフ 
ァイルとして保存するなどの安全策を講じていませんので，もとのファイルを 
消去してしまいます.ですから，ファイル作成の前にディスク上のファイル名 
を確認しておくように注意して下さい. 
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TINY EDITOR(CP/M-80) 


■ Source List 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

れ nclude "stdio.h" - 標準入出カヘッダのインクルード 

浮 define NULL 0 

斧 define E 一 CODE 27 /* end of edit code (ESC) */ 

が define LN_BUF 100- 丨行の文字数を定義 

main(argc,argv) 
int argc ; 
char 平 argv[]; 

{ 

if (argc ニニ 1) 

puts("Not file name 

else 

edit(argv[1]);_ 


/* rile open and edit */ 
edit(f1 name) 
char *f1 name; 

{ 一 

FILE *fp,*fopen(); 

char a [ LN_BUF ] ; - a という文字列変数領域をとる 

if ( ( f p = fopen( f l_name, "w" ) ) != NULL )— ライトファイルを 

{ オープンする 

while ( *gets (a )1=E CODE)— キーボードカ'ら エスケープコード カ < 
f printf ( f p, "%s\n 7T ,a ) ; 入力されると入力と出力をくり返す 

fclose(fp) ; —— I 

} - ファイルのクローズ 


i i") ?- ファイル名がないなら エラー 表示 

- エディットを行う 


/* 

/* 

/* 

/* 

/* 


Tiny editor rev 1 .0 

Copyright (C)1984 
Program by M.Hanari 
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酬 M)- 


LINE SAVER_ 

プログラムやファイルの一部をセーブ 


■ Program Outline 

この プログラムはソースプログラム やドキ ュメントフ アイルなどから，一部 
を抜き出してセーブするためのものです. C 言語では，関数をライブラリとし 
て保存する場合がよくありますが，この分割してセーブができる機能は，ライ 
ブラリの作成などに利用できるはずです. 


■ Explanation 

COM ファイル名は LSAV . COM とします. 

コマンドラインからの入力は次のようになります. 

A > LSAV FILENAME 範囲 FILENAME 

パラメ —夕はいずれも省略することはできません.なお，上記の“範囲”には 
次の 3 通りがあります. 


一 n 

先頭から n 行まで 

m — n 

m 行から n 行まで 

n — 

n 行から最後まで 


例 A > LSAV TEST. C 100—200 TEST. MD 1 

( TEST . C の100行から 200 行までを TEST . MD 1の名前でセーブ） 

A > LSAV TEST. C 250- TEST. MD 2 


( TEST . C の 250 行から最後までを TEST . MD 2 の名前でセーブ） 
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LINE SAVER (CP/M-80) 


■ Source List 


/* 

/* 

/* 

/* 

/* 

/* 


Line saver Rev 1.0 */ 

*/ 

Copyright (C)1984 */ 

Program by M.Hanari */ 

*/ 


浮 include "stdio.h" - 標準入出力へッダのインクルード 

^include "ctype.h" - 文字処理に関するへッダのインクノレード 

FILE *fp,*fopen(); 

mam( argc f argv) 
int argc; 
char *argv[]; 

{ 

int i,j; 

unsigned int st,ed; 
char ad[10]; 


if 


(argc == 3 || argc == 4} 

{ 

if ( ( fp = fopen(argv[1],"r" > } ! = NULL) —リードフアイルのオープン 

{ 

for (i = 0,j = 0; 


isdigit(ad[j] 

ad[j] = '\0 '； 

st = (st = atoi(ad)} ? 

for (i++, j = 0; 

isdigit(ad[j] 

ad [ j ] = ，\0'; 

ed = (ed = atoi(ad)) ? 

if (argc == 3) 

ln_read(st,ed, "CON : 

else 


=argv[ 2 ] [ i ] } ; i + +, j++> —— ad に 
第 2 パラメータの最初を代入 

St :1 ； — ad を数値に変換し st に代入 . 

もし st が 0 なら I に . 

= argv[ 2 ][i])；i + + ,j++) — ad に 
第 2 パラメータの 2 番目を代入 * 

ed : 65535;— ad を数イ直に変換し ed に 
代入 . ed が 0 なら 65535 を代入 . 
") ?—フアイ ル 名がなければ コンソールに 出力 


In 一 reaa( st,ed,argv[3]») J — ファイル名があればそのファイルに出力 

} 

fclose(fp) ;- ファイルのクローズ 

} 

else 

puts( "parameter error"); - エラ—を出力 


/* 1 line read & write */ 

浮 define LIN_BUF 200 

char buf[LIN BUF]; 

In read(s,e,name) 
unsigned int s,e; 
char name[]; 
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第 3 部 C ツール編 


FILE *wfp ； 
int ic , 
i =1 ； 

if ( (wf p = fopen( name, "w" ) ) == NULL ) ーライトファイルをオープンする 
return; 

while ((ic = getc( f p) ) i = EOF) - ファイルから Ic に I つ入力 

{ 

if ( !strcmp(name, n CON:’’ ） } —— ファイル名が“〇 ON:” Ic に $1a を代入 
if (ic == 0x1 a) 

{ 

i + +； 

continue; 

} 

buf[0] = ic; 

fgets(&buf [1],LIN_BUF - 1,fp )； - ファイルから 1 ライン入力 

if (i >= s && i <= e) 

fputs(buf ,wfp )； - ファイルにバッファの内容を出力 

i + +； 

f close (wfp); - ライトフアイルのクローズ 


/* ascii to integer */ 
atoi(cp) 

register char *cp; 

{ 

register unsigned i; 
register sign; 

while (*cp == . . | | *cp == '\t ') ——タブかスペースならスキップする 

++cp; 
sign = 0; 

if ( *cp == ) - もし，マイナスならサインフラグを ON 



++cp; 

} 

else 

if ( *cp == ' + ') - もし，プラスならスキップ 

++cp; 


for ( i = 0 ; isdigit(*cp ) ; ) 1 _ 

i = i*10 + *cp++ - 'O '； 
return sign ? -i : i ； - 符号の処理 


文字を数値に変換する 
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驗籍@0— 


DUMP PLUS 

各種のデバイスにダンプを出力 


■ Program Outline 

この プロ グラムは CP / M の DUMP コマン ドにアスキーダンプの機能を加えた 
ものです.さらに，そのダンプを CRT のほかに，プリンタに出力することもで 
きるうえに，ファイルとして出力することもできます. 


■ Explanation 

COM ファイル名は DUMP . COM とします. 

さて， コマンド ライ ン からの入力は次のようになります. 

A> DUMP FILENAME 〔 OUTPUT 〕 

この 〔 OUTPUT 〕 には，出力先としてのファイル名やデバイス名を指定でき 
ます.無指定のときには， CRT(CON : ) に出力します. 


例 A > DUMP TEST. COM LST ： 

(TEST. COM をブリンタに出力） 

A > DUMP TEST. COM TEST. DMP 

(TEST. COM を TEST. DMP のファイル名でディスクに出力） 


出力例 A > DUMP TEST.COM 

0000 : C3 261211 
0010 : 210100 CD 
0020 : 2102 00 CD 
0030 : 39 73 23 72 
0040 : 23 EB E1 73 
0050 : 21 0A 00 39 
0060 : 00 39 5E 23 
0070 :19 5E 23 56 
0080 : 5E 23 56 EB 
0090 : 5E 23 56 D5 
00A0 : E5 2128 2E 
00B0 : 02 02 2A 9C 
00CO : 00 39 E5 CD 
00D0 : 0C 00 39 E5 
00E0 : 39 E5 CD 25 
00F0 : 6F 03 2A 39 
0100 : OF D1 C9 72 


F9 FF CD 8A 26 2113 00 39 
F5 27 CA 02 02 2113 00 39 
2128 CA 7C 01210100 EB 
C3 46 012108 00 39 E5 7E 
23 72 2113 00 39 5E 23 56 
5E 23 56 El CD 20 28 CA 7C 
56 EB 29 EB 2115 00 39 7E 
D5 CD 1102 D1 C3 37 0121 
2B 29 EB 2115 00 39 7E 23 
2128 2E E5 CD C7 24 D1 D1 
E5 CD 25 0C D1 D122 37 2E 
28 7C B5 CA CB 012105 02 
C7 24 D1 D1 C3 D9 01210A 
CD C7 24 D1 D121OF 02 E5 
0C D1 D122 39 2E 7C B5 CA 
2E E5 CD 83 OF D12A 37 2E 
00 43 4F 4E 3A 00 4C 53 54 


5E 

23 

56 

.y.. 


5E 

23 

56 

• • • • u 


21 

0 8 

00 

j . I .. 


23 

66 

6F 

^s#r.F.j..9.' 

'#fo 

EB 

2B 

E5 



01 

21 

08 

(. 

L-!. 

23 

66 

6F 

• 9lV. ) . ! . .9' 

#fo 

13 

00 

39 

• A #V.7. : 


66 

6F 

19 

A #V.+).!..9~#fo. 

21 

03 

02 

"#V. ! ( - $. 

!.. 

7C 

B5 

CA 

."7 

|5. 

E5 

21 

OC 

..*(15...!.. 


02 

E5 

21 

• 9…$ .! 

1 

21 

OC 

00 

..9.. 

1 

FA 

01 

CD 

9"%*""9.j5 

z • • 

E5 

CD 
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o.*9.*7. 


3A 

00 

77 

".r.CON : .LST:.w 
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I Source List 


/* 

/* 




Dump plus 


Rev 1.0 


Copyright (C)1984 
Program by M.Hanari 


^inclujie "stdio.h" 

が include "ctype.h" 


-標準入出力へ ッ ダのインクルード 
一文字処理へ ッ ダのイン クルー ド 


^define NULL 0 — 

浮 define STD_DEV "con:' 

main(argc f argv) 
int argc; 
char *argv []; 


- ヌルを 0 と定義する 

—— 出カデバイスのデフオルトを “con :" とする 


char dev[ 20 ] ; 


-dev という文字列変数領域をとる 
- 文字の代入 


strcpy(dev , STDJDEV) ;- 

if (argc !=1) 

{ 

if (argc == 3) 

strcpy(dev , argv[2]);- 

dump(argv[1],dev); - 

} 


/* file open and read */ 
int buf[20]; 

dumpfr name,w 一 name) 
char *r name, キ w 一 name; 

{ 

FILE *fp_r,*fp_w,*fopen ()； 
int i; 

unsigned int adrs; 

if ((fp_r = fopen(rename,"r")) == NULL) 

return; - エラーなら終 J 

if ((fp_w = fopen(w name f M w"))1=NULL) 


-デバイス名の指定あれは代入 
-ファイルのダンプを行う 


リードファイルをオープン 
-ライトファイルをオープン 


adrs 


〇； 


while ((buf[ 0 ] 


ーァドレス表示用度数の初期化 
getc(fp r)) i= EOF)- 


•リードファイルを 
全部読んだら終了 


for (i =1; i < 16; i + +) 
buf[i] = getc(fp_r); 
hex dump(adrs++,fp_w); —— 
ascii dump(f d w); - 


fclose(f p_w ); 

} 

fclose(fp r); - 


-ライトファイルのクローズ 
-リードファイノレ (7) クローズ 


-バッファにファイルの内容をためる 
-バッファの内容を Hex にダンプ 
-バッファの内容をアスキーダンプ 
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DUMP PLUS ( CP / M -80) 


/* hex dump output */ 
hex_dump(add , fp) 
unsigned int add; 

FILE *fp; 

{ 

int i ; 
char s[10 ]; 


itoh ( add , s ) ; - add の内容を丨6進の文字に変換 

fprintf <fp, M %03s0 : " , s) ;- アドレスを出力 

for (i = 0;i < 1 6;i++) 


itoh ( buf [ i] f s ); 


-バツファの内容を 16 進の文字列に変換 


fprintf(fp,"%02s ",s} 


16 進変換したバッファを出力 


/* ascii dump output */ 
ascii dump(fp) 

FILE *fp; 

{ 

int i; 


fprintf(fp, n ••); -空白を出力 

for (i = 0 ;i < 16; i ++) 

putc(isprint(buf[i]) ? buf[i] : '.' 
fprintf (fp,"\n n ) ; -改行を出力 


/* integer to hex-string */ 
itoh(n,s) 
char *s; 
unsigned int n; 

{ 

char *itoh_s(); 


/ fp )； 


バッファの内容を出力. 
もしコント ロール コー 
ドならピリオド （.） を出力 


*(itoh s ( n , s )) 


； - * S の後にヌルコードを付加 


char *itoh s(n,s) 
char *s; 
unsigned int n; 

{ 

if ((n/16) > 0) 

S = itoh_s(n/16,s); - itoh — s の再帰呼び出し 

*s + + = ((n%~16 > 9) ?n% 16 -10+ 'A' : n % 16 + ' 0 ' )； 

return(s); 
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EXPAND DIR 


ワイルドカードが使える DIR コマンド 


■ Program Outline 

この Expand Dir は，ワイルドカードを使えるようにする関数を作成し，そ 
の使用例として DIR コマンドに属性を表示する機能を加えたものです. 

■ Explanation 

COM ファイル名は EXDIR . COM とします. 

この Expand Dir は通常の DIR コマンドと同様に使用できます.コマンドラ 
インからの入力は次のようになります. 

A>EXDIR FILENAME 

ここで、 FILENAME にはワイルドカードが使用できます. 

表示画面上では，システム属性のフアイルはフアイル名の後に閉じカツコ“）’’ 


が，書き込み禁止属性のフアイルには 

“氺 

”が付きます 




出力例 










A>EXDIR 

A:TURBO 

.COM 

*) 

A:TURBO 

.OVR 

*) 

A：STAT 

COM * 

A：PIP 

.COM 

A：POWER 

.COM 

木 

A：ZSID 

.COM 

* 

A：SUBMIT 

COM * 

A；DUMP 

.COM 

A:COPY 

.COM 

本 

a：ted 

.COM 

本 

A:PSUB 

COM * 

A:TY 

.COM 

A：PLST 

.COM 

本 

A ： AZTEC/C 

• 

本 

A：LOOK 

C 

A:TYPE 

.BAK 

A ： BENCH1 

.BAK 


A ： BENCH1 

.ASM 


A:BENCH1 

c 

A ： BENCH1 

.0 

A ： BENCH1 

.COM 


A：EXDIR 

.COM 







ワイルドカードの関数は wild (in — name , out — name ) の形でコールされま 
す.このとき， in — name はファイル名の入った配列の先頭のポインタで ， out 
— name は関数 wild () によってサーチされたファイルネームが入る配列の， 
先頭のポインタです.また， wild () 自体は対応するファイルがあれば値とし 
て0を持ち，ないときには_1 ( EOF ) の値を持ちます. 
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関数 wild () は ， in — name に対応するファイルをディレクトリより サーチ 
し，対応するファイルのディレクトリの32バイトを out — name のポインタか 
ら代入します.したがって関数 wild () を使用するにあたって ， out —name 
用の配列（キャラクタ32バイト）を用意する必要があります.ファイル ネームの 
みを取り出す方法は，ソースリストの関数 get — nm () を參考にして下さい. 

in — name にワイルドカードの含まれる場合は，1 つのファ イルネームに対 
して複数のファイルが対応しますので，通常は次のような形で wild () をコー 
ルして下さい. 

while (wild (in — name , out _ name) != EOF ； 

{ 

処理 


- エフーメツセージ . 

AZTEC CII では標準リ.ンクモジュールとして， C.LIB (. COM ファイルを 
生成する）， R.LIB ( R . COM と合わせて使う . OVR ファイルを生成する）， T 丄 IB 
(関数の機能を限定して，サイズを短縮した. COM ファイルを生成する）， M 丄 IB 
( float 型の変数に対する演算用の関数等を含む数値演算ライブラリ）がありま 
すが，リンクするときにリンクすべきファイルを正しい順序で指示する必要が 
あります. 

たとえば， example . 〇 (プログラム中で float 型の変数を扱っている）という 
ファイルから example . com というファイルを生成する場合，リンクは次のよ 
うな順序で入力する必要があります. 

A，ln example . 〇 m.lib c.lib 

上記の例では m . lib と c . lib を逆にすると次のようなメッ セージを 返してリ 
ンクを中断してしまいます. 

Undefined simbol X X X X . 


87 








第 3 部 C ツール 編 


■ Source List 

/* 

/* Expand dir Rev 1.0 

/* 

/* Copyright (C)1984 

/* Program by M.Hanari 

/* 

が include "stdio.h" 

main(argc,argv) 
int argc; 
char *argv []; 

{ 

char carg[20], 
fc_nm[32], 
name[20 ], 
r at, 
s at; 

int ct = 0; 

strcpy(carg,argc ==1? : argv[1]); 

if (strlen(carg) == 2 && carg[1]==':') 

strcat ( carg, ; 

while (wild(carg,fc nm) I= EOF) 

{ 

r 一 at = f c_nm [ 9] & 128 ? '•*' : ' 
s 二 at = fc~nm[10] & 128 ? ' ) ' : • •; 
get nm(fc nm,name); 
printf ("%s %c%c ",name f r at, s at ); 
if (ct++ % 4 == 3) 
putchar( 1 \n' )； 


get nm(in,out) 
char *in,*out ; 

{ 

int i; 

out [ 0 ] = in [ 0 ] + ' A'-1; 
out[1]=':'; 
for (i =1;i < 9 ; i++) 
out[i + 1]=in[i]; 
out[10]='.'; 
for (i = 9;i く 12; i + +) 

out[i+2] = in[i] & 0x7f; 
out[14] = '\0'; 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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/* wild 一 card function */ - 関数 wild( 

浮 define DMA_ADR 0x80 

wild(in name,ret name) 
char in name[] f 
♦ret name; 

{ 

char wfcb[40]; 
static char res name[20]; 
static int ct; 
char 木 pc; 
int i, 
rp ； 

if (strcmp(in name,res_name)) 

{ ~ _ 
strcpy(res_name,in name); 
ct = 0; 

} 

bdos(26,DMA ADR); 
fcbinit(in name,wfcb); 
rp = bdos(17,wfcb); 
if (ct > 0) 

for (i = 0;i < ct;i++) 

if ((rp = bdos(18,0)) == 255) 
break; 

if (rp == 255) 

{ 

*res name = 0; 
return(-1); 

} 

pc = rp * 32 + DMA ADR; 

ret_name[0] = (*wfcb == 0) ? bdos(25,0)+1 : 
for (i =1;i く 32;i++) 
ret nameil]=pcii ]； 
ct++; 

return(0); 


*wfcb; 
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RENAME PLUS wild ( ) の応用 

ワイルドカードの使える RENAME 


■ Program Outline 

CP/M V .2.2 では不可能な複数のファイルを，ワイルドカードを使用して一 
度に RENAME することができます.このプログラムは，関数 wild () を応用 
したものです. 

■ Explanation 

COM ファイル名は RENAME . COM とします. 

コマンドラインからの入力は，次のように通常のリネーム （REN ) と同じよ 
うになります. 

A> RENAME NEWFILE = OLDFILE CN] 

(N :実行の確認をしない） 

コマンドを 実行するとファイル名を表示し，リネームの確認をとります.た 

だし， N ォプション指定時は無条件にリネームします （出力例 参照）. 

このプログラムにおいて，関数 wild () は一部変更されています. wild () 

内の6行目の static int ct ;を削除しています. 

出力例 A > RENAME NAME . *=RENAME . * 

A：RENAME .C to A：NAME .C (y/n)N 

A : RENAME .BAK to A : NAME .BAK (y/n)Y 

A：RENAME .COM to A : NAME .COM (y/n)N 


注） Y ， N はコンソールから入力 
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■ Source List 


/* */ 

/* Rename plus Rev 1.0 */ 

/* */ 

/* Copyright (C)1984 */ 

/* Program by M.Hanari */ 

/* */ 


^include "stdio.h" 
int ct; 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

char f_name[32 ], 
carg[20 ], 
name[40 ], 
new_nm[20] f 
w_name[20 ], 
cT 

int q 一 mod = 0, 



if (argc == 3 && argv[2][0] == 'N') 
q mod ++； 
if (argc !=1) 

{ 

for (i = 0;(w_name[i] = argv[1][i]) != '=';i++) 

f 

w 一 name[i++] = •\0•; 

for (j = 0;(carg[j] = argv[1][i]) •= '\0';i++,j++) 

i 

fcbinit(w name,name); 

get nm(name,w name); 

while (wiId(carg,f_name) != EOF ) 

{ 

get_nm(f 一 name,name); 

strcpy(new nm,w name); 

conv_nm(name,new nm); 

printf("%s to %s ",name,new_nm); 

if (a mod) 

putchar(' \n ')； 

else 

{ 

printf("(y/n)"); 

while ((c = toupper(getchar())) I= 1 Y' 

&& c i= 'N') 


if (q—mod || (iq_mod && c == 'Y')) 

厂 ~ 

if ( rename(name,new nm) == EOF) 
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puts("error") ; 
exit(O ) ； 

} 

ct —— ； 


/ * get file name */ 
get nm(in,out) 
char *in,*out ; 

{ 

int i; 

out[0] = in[0] + 'A'-1 ； 
out[1 ]='：'； 
for (i =1;i < 9 ; i + +) 
out[d+1 ]=in[i ]； 
out[10]='.'; 
for (i = 9;i < 12;i + +) 

out[i+2] = in[i] & 0x7f; 
out[14] = '\0 '； 


卜 convert new name */ 
conv nm(old , new) 


char *old, 

*new; 


int i; 

new[0] 

= old[0] 

i 

new[1] 

= old[1] 

i 

for (i 

二 2;i く 

14;i++ ) 
=='?') 

if 

(new[i] 


new[i] = oldil ]； 


/* wild 一 card function */ 

浮 define DMA_ADR 0x80 

wild(in name,ret name) 
char in_name[], 

*ret name; 

{ 一 

char wfcb[40]; 
static char res_name[20]; 
char *pc; 
int i, 
rp; 

if (strcmp(in name,res name)} 

{ 

strcpy(res 一 name,in_name); 
ct = 0 ； 
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bdos(26,DMA-ADR); 
fcbinit(in 一 name,wfcb); 
rp = bdos(T7,wfcb); 
if (ct > 0) 

for (i = 0;i < ct;i++) 

if ((rp = bdos(18,0)) == 255) 
break; 

if (rp == 255) 

{ 

*res name = 0; 
return(-1); 

} 

pc = rp * 32 + DMA 一 ADR; 
ret 一 name[0] = (*wfcb == 0) ? bdos(25,0)+1 
for (i =1；i < 32;i++) 
ret_name[i] = pc[i]; 
ct++; 

return(0); 


: *wfcb; 
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TYPE PLUS_ 

ワイルドカードの使える CP/M PLUS ライクの TYPE コマンド 


■ Program Outline 

このプログラム により， TYPE コマンドの従来の機能の他に，ワイルドカー 
ドを 使う ことができます. CP/M PLUS のようにファイルネームを 指定する 場 
合には，？と * の両方のワイルドカードの使用を可能にしています.さらに， 
プリンタへの出力もできるようになっています.ただし， CP/M V .2.2 では， 
この ワイルドカードの使用も，プリンタへの出力もできません. 

■ Explanation 

COM ファイル名は TYP . COM とします. 

コマンドラインからの入力は次のとおりです. 

A > TYP.COM FILENAME 〔オプション〕 

このとき，ワイルド （* ) を使用した場合は複数のファイルネームを指定でき 
ますが，ワイルドを使わないとき以外は，ファイルネームを1つしか指定する 
ことはできません.オプションは表1参照. 

このコマンドの実行により，出力は1ページごとにストップします（出力例 
1 ). N オプションの指定がない場合はモードに関係なく連続してプリンタに 
出力します.なお，ファイルが複数のときはファイルごとに次のページに送り 
ます（出力例2 )• 


オプシヨン 

機 肯 1 

N 

1 ページごとにストリップしない 

P 

プリンタに出力する 
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出力例 1 ( ファイルを 1 ページごとに出力） 


TYPE PLUS(CP/M- 80 ) 


A：TYP .C 

/* */ 

/* Type plus Rev 1 . 〇 木ン 

/* */ 

/* Copyright (C)1984 */ 

/* Program by M.Hanari */ 
/* * / 

浮 include "stdio.h" 

痒 define CPM EOF 0x1 a 

char dev[2][5] = {"CON:" f "LST:"}; 

int md = 0, 
pg = 0, 

In = 0; 

main(argc , argv) 
int argc; . 

char *argv[]; 

{ 

FILE *fp,*fpw; 

Press RETURN to Continue 


出力例 2 ( 複数のファイルのときはファイルごとにページを送る） 
if (ct > 0) 

for (i = 0;i < ct;i++) 

if ((rp = bdos (18,0)) == 255 ) 
break; 

if (rp == 255) 

{ 

*res—name = 0; 
return(-1); 

} 

pc = rp * 32 + DMA 一 ADR; 

ret_name[0] = (*wfcb == 0) ? bdos(25.0)+1 
for (i =1;i < 32;i++) 
ret 一 name[i] = pc[i]; 
ct++; 

return(0 ); 


A ： TYP 
/* 

.C 


*/ 

/* 

/* 

Type plus 

Rev 1.0 

*/ 

/* 

Copyright 

(C)1984 

*/ 

/* 

Press 

Program by M.Hanari 
RETURN to Continue 

*/ 


: *wfcb; 
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■ Source List 


/* Tvpe plus Rev 1.0 

/* 

/* Copyright (C)1984 

/* Program by M.Hanari 
/* 



^include "stdio.h" 

^define CPM 一 EOF 0x1 a 

char dev[2][5] = {"CON: " , "LST: •'}; 

int md = 0, 
pg = 0, 

In = 0; 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

FILE *fp,*fpw; 
char f—name[32], 
name[20]; 
char c; 
int i = 0; 

if (argc == 3) 

while ((c = argv[2][i + +]) i= '\0 *) 


if (c == 'N 


pg =1; 

else 


if (c == 'P') 


md =1 
pg =1 
break; 


if (argc !=1) 

{ 

if ((fpw = fopen(dev[md],"w")) == NULL) 
puts("device error"); 

else 


while (wild<argv[1],f_name) I= EOF) 

{ 

get. nm(f name,name); 

if T(fp = fopen(name,"r")) == NULL) 


puts("file read error"); 
exit(); 


else 
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if (md) 

putc('\f',fpw); 
fprintf(fpw,"%s\n n ,name); 
page(); 

while ((i = getc(fp)) »= EOF 

( && i i= CPMJEOF} 

putc(i,fpw); 
if (i == '\n') 
page ㈠ ； 

} 

fclose(fp); 
putc('\n',fpw); 
page(); 


fclose(fpw); 


/* page mode process */ 
page() 

{ 

if (!pg && ln++ == 22) 

{ 

printf("Press RETURN to Continue M ); 
while (getchar() i= 1 \n') 

} 

In = 0; 


/* get rile name */ 
get nmiin ptr,out ptr) 
char ^in_ptr; 
char *out ptr; 

{ 

int i; 

out 一 ptr[0] = in_ptr[0] + 'A' - 1; 
out_ptr[1]=':'; 
for (i =1;i < 9;i++) 

out ptr[i+1]=in 一 ptr[i]; 
out ptr[10] = 1 .'; 
for (i = 9;i < 12;i++) 

out ptr[i+2] = (in_ptr[i] & 0x7f); 
out_ptrIl4] = '\0'; 


注）このソースリストに 「EXPAND DIR 」 のところで使用した 
関数 wild () をリンクしてください . 
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陋關譬: 


SUBMIT PLUS 

SUBMIT コマンドの機能のアップ 


■ Program Outline 

SUBMIT コマンドは便利なコマンドですが，あまり多くの機能を持ってはい 
ません.そこで，このブログラムにより， SUBMIT コマンドの持つ機能以外に， 
IF 文による条件分岐や文字列の出力，キー入力の機能を可能にしています•これ 
らの機能によって，今までは処理に応じて複数の SUBMIT ファイルを必要と 
していたものを，1つのファイルで処理することができるようになります. 


■ Explanation 

COM ファイル名は PSUB . COM とします.プログラムの使用に先立って， 
コマン ドファイル （ SUBMIT ファイルに相当するもの）を作成しますが，この コ 
マン ドファイル内では表1の命令が使用できます •コマン ドおよび IF 文におけ 
る =( イ コール） などは，必ず1 つ 以上の空白で区切って下さい. 

$1，$2などは通常の SUBMIT と同じようにコマンドラインからの文字列が 
代入され，#0，#1などは内部変数で KEY 命令により各々1文字の値を持 
ちます. 

IF 文のネストは許可されず，そのため， IF 〜 ELSE . IF 〜 ELSE のような 

ときには， ELSE は直前にある IF のみに対応します.条件部は （） で囲み ， IF 
文の終了には必ず ENDIF を付けて下さい. 

例 KEY # 1 

IF (# 1= ”1 ”） 

EX ” DIR A:，’ - 

ELSE IF (#1= ”2 ”） 

EX ” DIR B:” - 

ELSE 

EX ’’DIR C:” - #1 く >”2 ”のとき実行 
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#1=”1 ”のとき実行 
#1= ”2 ”のとき実行 









実行は通常の SUBMIT と同じように行います. 


SUBMIT PLUS(CP/M-80) 


例 A> PSUB TEST 


コマンド 

機 肯巨 

EX 

””内の命令を実行する 

PRINT “〜” 

””内の文字を画面に出力する 

KEY # n 

変数 # n に 1 文字入力 

IF (〜）〜 

() 内が真のとき以下の文を実行 

ELSE 〜 

直前の IF 文の条件が偽のとき以下を実行 

ENDIF 

IF 文の範囲の終了 


注） IF 文の条件は ；==( 等しい），！（等しくない）の2種類で変数=定数 
の形をとり，変数には# n ，$ n が対応し，定数には””で囲まれた 
文字列が対応します. 


コマンドファイルの例 

例 1 PRINT "1 : DIR" 

PRINT "2 ： STAT" 

PRINT "Select 1or 2 っ 11 
KEY 存 1 

IF (#1="1") 

EX "DIR" 

ELSE IF (fn = "2") 

EX "STAT" 

ENDIF 


例 2 PRINT "1 : Compile" 

PRINT "2 : Assemble" 

PRINT "3:Link ， C.LIB，" 

PRINT "4:Compile to Link 'C.LIB'" 
PRINT "Select 1 to 4 ?•， 

KEY 

IF ㈤ = "1 “） 

EX M CC $1.C" 

ELSE IF ⑴ ="2") 

EX "AS $1.ASM" 

ELSE IF (#1="3") 

EX "LN $1.0 C.LIB" 

ELSE IF (j^l="4") 

EX "CC $1.C" 

EX "AS $1.ASM" 

EX "LN $1.0 C.LIB" 

ENDIF 


99 












第 3 部 C ツール編 


■ Source List 
/* 

/* Submit plus Rev 1.0 

/* 

/* Copyright (C)1984 

/* Program by M.Hanari 

/* 

^include "stdio.h" 

々 include "ctype.h" 

浮 define PASS 0 
浮 define WRITE 1 
存 define EXE 2 
浮 define PRT 3 
痒 define KIN 4 
存 define IFF 5 
浮 define ELE 6 
^define ENF 7 

浮 define MAX LINE 80 
^define MAX 二 COL 80 

FILE *fp_r,*fp_w ； 

main(argc,argv> 
int argc; 
char *argv[]; 

{ 

FILE *fopen(); 

if (argc !=1) 

if ((fp_r = fopen(argv[1]/'r")) != NULL) 

{ 一 

if ((fp_w = fopen( M A:$$$.SUB" f "w")) != NULL) 

{ 一 

mk file(argc,argv); 
fclose(fp_w); 

} 

fclose(fp r ); 


/* file read and write $$$.sub */ 
mk file(argc,argv) 
int argc; 
char *argv[]; 

{ 

int i , ln_ct = 0; 

long 1; 

char buf[80]; 

char com_buf[MAX 一 LINE][MAX 一 COL]; 

while ((i = char_in(argc,argv)) i= EOF) 
if (i == WRITE) 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


100 




SUBMIT PLUS(CP/M- 80 ) 


ski P ( 'X'" )? 

for (i = 0;(buf[i] = getc(fp 一 r)) != '\"';i++) 

buf[i] = '\0 '； 
chg_para(argc,argv,buf}; 
strcpy(com 一 buf[ln_ct++] r buf); 

} 

for (1= 0 ?1 < ln_ct; 1++ ) 

{ 

fseek(fp w,l * 128L f 0 )； 

putw(strlen(com_buf[In 一 ct-1-1]),fp_w); 

fseek(fp_w,-1L,1); 

fputs(com buf[In ct-1-1],fp w); 

putc('\0 • 了 fp 一 w> 厂 


/* command process */ 
char word[ 40 ]; 
char var[10 ]; 

char in(argc f argv) 
int argc; 
char *argv[]; 

{ 

static int ex mod =1; 
char c; 


if (word_in() == EOF) 
return(EOF); 
x upper(word)? 
switch(com chk()) 


case EXE: 

if (ex—mod ==1) 
return(WRITE )； 
skip( 'N'" )； /* 

skip( ); 
break; 
case PRT: 

skip( 'X'"); 
putchar('\n')? 
while ((c = getc(f d r)) 
putchar(c); 
break; 
case KIN : 

word in(); 
if (word[0] == •#.) 

key 一 inj); 
break; 
case IFF: 

skipCt ')； 


/* EX 

skip not ex-com 
/* PRINT 

='X'") 

/* KEY IN 

/* IF 


word in(); 

ex 一 mod = (word[0] == '$ 1 ) ? 

- test str(argc,argv) : test ch(); 
skip(')')? 


*/ 


*/ 

*/ 


*/ 


*/ 
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case ELE: 

/* 

ELSE 

木 / 

ex mod =1 - ex—mod; 




break; 




case ENF: 

/* 

ENDIF 

*/ 


ex mod = i ; 
break; 

} 

return(PASS ); 


/* get word */ 
word in() 

int ic,i; 
char c; 

while (isspace(ic = getc(fp_r))) 

if (ic == EOF) • 
return(EOF); 
word[0] = ic; 
i =1; 

while (i isspace(ic = getc(fp_r))) 
ic; 


if (ic i= EOF) 
word[i++] : 

else 


word[i] = '\0 '； 

return(EOF); 


word[i] = '\0' ； 

return(NULL); 

} 

/* change upper case 木 / 
x upper(ptr) 
char *ptr; 

{ 

for ( ;*ptr != '\0';ptr++) 
♦ptr = toupper(*ptr); 

} 

/* command check */ 
com chk() 

一 { 

if (! strcmp(word,"EX")) 
return(EXE)? 

if (i strcmp(word,"PRINT")) 
return(PRT); 

if ( ! strcmp(word, , ， KEY"n 
return(KIN); 

if (i strcmp(word,"IF")) 
return(IFF >; 
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if (! strcmp(word,"ELSE")) 
return(ELE); 

if (! strcmp(word,"ENDIF")) 
return(ENF); 
return(PASS); 


/* change $n to string ♦/ 
chg_para < argc,argv,o_buf) 
int argc; 

char *argv[],o buf[]; 

{ 一 
char c buf[80]; 
char c; 

int i,j,k r str no; 
k = 0; 

for (i = 0;o_buf[i] != '\0';i++) 

{ — 

if (o buf[i] == '$') 

{一 

str 一 no = o_buf[++i] — 'O'; 
ir (argc < str no + 2) 

{ 一 

puts("parameter error"); 
exit(1); 

} 

for (j = 0;(c = argv[str_no + 1][j ]) != '\0';j++) 
c buf[k++] = c; 

} 

else 

c buf[k++] = o buf[i]; 


c 一 buf[k] = '\0'; 
strcpy(o buf,c buf); 


/* string compare */ 
test_str(argc,argv) 
int argc; 
char *argv[]; 

{ 

char cp_buf1[40],cp_buf2[40]; 
char op; 
int i; 

strcpy(cp 一 buf1,word); 

ch g 一 para(argc,argv ,cd buf1); 

word in(); 

op = word[0 ]; 

skip( へ"’）； 

for (i = 0;(cp_buf2[i] = getc(fp_r)) i= 'X'" ；i + +) 

cp_buf2[i] = '\0'; 

chg 一 para(argc,argv,cp buf2); 
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i = (strcmp(cp_buf 1 r cp_buf 2 ) == 0)? 

return(op == '=' ? i : 1 - i)/ 


/* character compare */ 
test—ch() 

int i; 
char op; 

i = word" ] - 'O '； 
word in(); 
op = word[0 ]； 
skipCX '")； 

i 二 ((var[i] - getc(fp r)) == 0 )； 
skipCX "')； 

return(op == '=' ?i : 1 - i )； 


/* skip to mark */ 

skip(mark) 

char mark; 

{ 

while (getc(fp_r)1=mark) 

} 

/* get key 木 / 
key in() 

一 { 

char key_buf[20]; 
gets(kev buf); 

var[word[1]_ '0'] = toupper(*key_buf); 
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FILE MARKER 

関数名や変数名をファイルから探し出す 


■ Program Outline 

ソースファイルの中から，単語（最高で10語まで）を探し出します.そして， 
デイステイネ—シヨンファイル（この場合はオブジェクトファイル）にソースフ 
ァイルをコピーして，その行の下に単語のマーク〇〜 9 を，それぞれの単語の 
先頭に付けます. 

このプログラムは， C 言語のソースファイルから変数や関数が使われている 
場所をみつける場合などに有効です. 


_ Explanation 

COM ファイル名は MARC . COM とします.以下操作手順を示します.下線 
部が入力部分になっています. 

① プログラム名を入力する. 

MARK <CR> ( < CR > はリターンキー） 

② ソースフアイル名を入力する. 

Source Tile name = ( 
text, c <CR> 

③ ディスティ ネー シヨンフ ァイ ル 名を入力する. 

Distination file name = ( 
text, mrk く CR> 

④ 探したい単語を入力する.終わるときは，く CR > のみを入力する. 


WORD(0) = ? ABC <CR> 
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WORD( 1 )= ? a be <CR> 

W0RD(2) = ? く CR> 

単語を 10 語入力し終わるか，あるいは < CR > だけを入力すると，次のよう 
なさまざまなメッ セージを 出力して単語だけを探し始めます. 

Source = text, c 
Distination = text, mrk 
Word number =1 

WORD (0)=1 word 1 I 
WORD( 1)=1 word 2 I 

このプログラムでは，探す単語を構成する 
文字は入力されたときの文字コードで比較さ 
れるので，大文字と小文字は異なる文字とみ 
なされます.また，タブについては1文字と 
して扱うためマークの位置がずれてしまうた 
め，あらかじめ何文字かの空白文字（スペー 
ス）に置換しておく必要があります.スぺ一 
スは他の文字と同様に1文字として扱います. 

逆に スペースを 上手に使うことによって，不必要な単語をマークしないです 
みます.なお，く CR > (キャリッジリターン）は単語人力の終了コードとして 
扱っているため，単語を構成する文字としては扱えません. 

出力例 A > type example.mk 

/* - example program source - 子 / 


プログラムの実行結果 

A>mark 

Source file name = ? 
example.c 

Distination file name = ? 

example.mk 

WORD(0)=?define 

W0RD(1)=?MAXLINE 

W0RD(2)=?maxline 

WORD(3)=?{ 

WORD(4)=?( 

WORD(5)=? 

Source =example.c 
Distination =example.mk 
Word number = 4 
Word(0)=|define| 

Word(1)=|MAXLINE| 

Word(2)=|maxline j 
Word (3)= |{I 
Word(4) = j(j 


浮 define MAXLINE 10 
0 1 


char string[30] = "abcDEFMAXLINEmaxlineMAX LINE"; 

_ 1 _ 2 _ 


main() 

一 4_ 

{ 

3 

printf("Defined string is /%s/.\n ", string ); 
_4_ 
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■ Source List 


/* 



*/ 

/* File marker Rev 1.0 

*/ 

/* 



*/ 

/* i 

Copyright 

(C)1984 

*/ 

/* Program by 

M.Matsuzaki 

*/ 

/* 



*/ 

斧 include "b:stdio.h" 


存 define 

MAXWORD 

10 


泠 define 

WORDLEN 

10 


存 define 

FNAMELEN 

20 


が define 

MAXLINE 

150 


^define 

EOD 

0x1 A 


存 define 

NOERR 

0 


存 define 

EQU 

0 



/* keyword table (struct) */ 

struct w_table { 

int word 一 no; 

char word[MAXWORD][WORDLEN]; 

}； 

main() 

{ 

char s_file[FNAMELEN], 

d~file[FNAMELEN]; 
struct w table words; 

f name i.n( s_f ile, d file); 
word 一 in(&words); 
mesage(s_file, d file, Swords); 
mark(s file , d file, Swords); 


/* file name input */ 
fname in(s file, d file) 
char *s file, 

*d:file; 

{ 一 

printf("Source file name = ?\n"); 
gets(s file); 

printf("Distination file name = ?\n"); 
gets(d file); 


/* keyword input */ 
word in(words) 
struct w table *words; 

{ 一 
int no; 

char w_buf[WORDLEN]; 


for (no = 0; no < MAXWORD; no++) 
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printf("WORD(%d)=? M f no ) ； 
gets(words->word[no]); 
if (*(words->word[no]) == '\0') 
break; 

} 

words->word no = no -1; 


/* source file,distination file & keyword list out */ 

mesage(s file, d_file, words) 

char 

*d 一 file; 

struct w table *words; 

{ 一 
int c; 

printf("\n") ； 

printf("Source =%s\n ", s 一 file); 

printf("Distination =%s\n ", d_file); 

printf("Word number = %d\n", words->word_no); 

for (c = 0; c <= words->word no; C++ ) 

printf(" Word(%d)=|%s|\n" f c, words->word[c]); 


/* marking */ 

mark(s file, d file, words) 

char *s file, 

*d 一 file; 
struct w table *words; 

{ 一 

int s er, 
d_er , 
st, 

line in(); 

char s line[MAXLINE], 
d_line[MAXLINE ]； 

FILE *¥_fp, 

*d_fp, 

*fopen(); 


if ( (s—fp = fopen(s 一 file, "r")) == NULL ) 

{ _ 

printf (’’FILE ( %s ) can' t open ( for read)1 \n", 
s file 


I f 

exit(0); 

} 

if ( (d_fp = fopen(d_file, "w")) == NULL ) 

{ ~ 

printf( "FILE (%s) can 1 1 open (for write)!\n", 
d file 

)； 

exit(0); 

} 

while ( ( (st =line 一 in 《 s_fp, s_line)) != EOF 

&& ( st != EOD ) 
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{ 

mark_buf(s 一 line, d—line, words); 

s—er = fputs(s_line, d_fp); 

d_er = fputs(d_line, d_fp); 

if ( (s_er != NOERR) |J (d_er != NOERR)) 

printf( m FILE(%s) write errori\n", d file) : 
exit ⑻； 一 


fclose(s fp); 
fclose(d fp); 


/* marking on buffer */ 
mark_buf(s_line, d line, words) 
char *s line , 

*d line; 

struct w table *words; 


char *line; 
int n, 

ptr, 

search(); 

for (n = 0; n く strlen(s line) - 1;n++) 
d line[n] = ; 

d_line[n] = '\n'; 
d 二 line[n + 1]='\0'; 

for (n = words->word no; n > = 0; n——> 

{ 

line = s line; 

for (ptr = 0;line <= &s_line[MAXLINE];) 

{ 

ptr = search(line, words->wordLn]); 
line = &lme[ptr ]; 
if (ptr <= MAXLINE) 

{ 

d line[line - s_line] = n + 'O'; 
line ++; 

} 

else 

break; 


/* one line input from source file */ 
int line in ( fp , line ) 

FILE * fp 7 
char * line ; 

{ 

int c, 
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ptr; 
ptr = 0; 

while ( ((c = getc(fp)) i = EOF) 

&& (c != EOD) 

&& (c i= '\n') 

=c; 

， \n ， ； 


/* keyword search on buffer */ 
int search(line, kev word) 
char *line, 

♦key word; 

{ 

int ptr, 

1 一 len, 
w len; 

w len = strlen(key word}; 

1len = strlen(line); 

for (ptr = 0; ptr <=1len; ptr++) 

{ 

if ( strncmp(&line[ptr], key_word, w len) 
==EQU 

) 

break; 

} 

if (ptr > l__len) 

return(MAXLINE +1); 

else 

return(ptr); 


line[ptr++] 
line[ptr -1]= 
line[ptr] = '\0 
return(c); 
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LIST FORMATTER 

保存用リストの出力 


■ Program Outline 

この LIST FORMATTER は，各種のプログラムの保存用ソースリストを， 
桁数や 1 ページあたりの行数を指定することにより，プリンタに出力します . 
各ページの先頭にはプログラムのタイトルとページ数を出力することもできる 
うえに，ライン No . を付カロすることもできます . 


■ Explanation 

COM ファイル名は PLST . COM です . 

コマンドラインからの入力は次のように行います . 

A> PLST 〔 OPTION〕FILENAME 

オプションは表 1 のと おりです. P ， N ， S のオプションは P ， N ， S の それ ぞ 
れを付加することによって ON されます.それ 以外のオプションは，たとえば 
1 ページ 行数を指定する場合は“ L80” というように， オブションの 後に指定す 
る数値を付けて入力します. 

例 A > PLST NL60 TEST. C 

(TEST. C をライン No •を付けずに1ページ60行で出力） 


オプシヨン 

例 

無指定時 

機 肯巨 

P 

— 

— 

ぺージ No . の出力をしない 

N 

— 

一 

ライン No . の出力をしない 

T 

T 4 

8 

タブを n 文字に展開 

M 

M 5 

0 

レフトマージン 

C 

C60 

80 

1 行桁数 

し 

し 50 

60 

1 ページ行数 

S 

— 

一 

画面に出力する 
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int pq nm = 
in nm = 
tab m = 
If mg = 
colum = 
pg 一 In = 
sc md = 


/* 

page 

number 

*/ 

/* 

line 

number 

*/ 

/木 

tab 

margin 

*/ 

/木 

left 

margin 

*/ 

/* 

column 

length 

*/ 

/* 

page 

length 

氺 / 

/* 

screen 

output 

*/ 


■ Source List 

/* */ 

/* List formatter Rev 1.0 */ 

/* */ 

/* Copyright (C)1984 */ 

/* Program by M.Hanari */ 

/* */ 

^include "stdio.h" 

斧 include "ctype.h" 

斧 define ON 1 
斧 define OFF 0 

^define CPM 一 EOF 0x1 a 

/* default parameter */ 


char name[ 15]; 

FILE *fp,*lst; 

main(argc f argv) 
int argc; 
char *argv[]; 

{ 

FILE *fopen(); 
char dev[5]; 
int i; 

if (argc i=1) 

{ 

if (argc > 2) 

for (i =1;i < argc - 1;i++) 
op chk(argv[i ])； 
strcpy(name,argv[argc -1]); 
if ((fp = fopen(name,"r")) i= NULL) 

{ 

if (sc md) 

strcpy (dev, "CON : ； 

else 

strcpy(dev,"LST:"); 
if ((1st = fopen(dev,"w")) != NULL) 

{ 

1st 一 out(); 
fclose(1st); 


N N 8 o o o F 
o o 8 6 0 
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/ * option check */ 
op—chk(s) 
char *s; 

{ 

while (*s i= ’\0 ’） 

switch(toupper(*s++)) 

{ 

case 'P '： 

pg_nm =1 - pg_nm; 
break; 
case 'N': 

In 一 nm =1 - In nm ; 
break; 
case 'T': 

tab—m = get num(&s); 
break; 
case 'M': 

lf_mg = get_num(&s); 
break; 
case 'C': 

colum = get num(&s); 
break; 
case •L 1 : 

pg 一 In = get—num(&s); 
break; 
case 'S': 

sc 一 md = ON; 
break; 

default: 
s + +; 
break; 


/* get number */ 
get num(sp) 
char 氺氺 spj 
{ 

char n_buf[5]; 
int i; 

for (i = 0;isdigit(**sp};i++) 

{ 

n_buf[i] = **sp; 

++(*sp); 

} 

n 一 buf[i] = '\0'; 
return(atoi(n buf ))； 
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/* list out */ 

浮 define LIN—MAX 200 

1st 一 out() 

一 { 

char ljDuf [LIN 一 MAX] ; 

int page = 0, 

line = 0, 

plin = 0, 

i ； 

colum = colum - If— mg - (In nm * フ）； 
f feed(++page); 

for (；；) 

{ 

if (plin >= pg In) 

{ 一 
f 一 feed(++page); 
plin = 0; 

} 

if ((i = getc(fp)) == EOF || i -- CPM EOF) 
break; 

l_mrg(++line); 

*T buf = i ； 

fgets(&l buf [1] ,LIN_MAX / fp) ; 
plin +=lin_out(l_buf )j 


/* form feed & page print */ 

f_feed(p) 

int p; 

{ 

int i; 
if (pg nm) 

fprintf(1st,"\f Title : %-14s%50s%03d\n\n" 

, name,"Page : ",p); 

else 

fprintf(1st,"\f"); 

} 

/* left margin & line number print */ 

1 mrg(l) 
int 1; 

{ 

int i; 

for (i = 0;i < If mg;i++) 
putc(•',1st); 
if (In nm) 

fprintf(1st,"%5d: ",1); 


/* 1line print 本 / 

lin out(buf) 
char buf[]; 
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int i = 0 f 
t = 0, 


char c; 


while((c = buf[i]) '= '\n' && c != '\0') 

{ 

if (buf[i] == '\t') 

{ 

i + +; 

putc(' ' f 1st); 

while (((i + t) % colum) % tab m != 0) 
{ 一 
putc (’ ’ ， 1st); 
t++; 

if (i ((i + t) % colum)) 

{ 

If 一 sp(); 

1 + +; 


else 

{ 

putc(buf[i++],1st); 
if (i ((i + t) % colum)) 

if ((c = buf[i]) != '\n' && c 1= '\0' ) 
{ 

If 一 sp(); 

1 + +; 


fprintf(1st,"\n M ); 
return(1 ); 


/* cr & left space */ 
lf_sp() 

一 { 

int i; 


fprintf (1st, ， '\n n ); 

for (i = 0;i < If 一 mg + (In nm * 7);i++) 

putc(•' , 1st); 
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LOOK _ 

ソースファイルの構造を把握するために 


■ Program Outline 

C 言語のソースファイルでは，中カツコ { } は主に関数のボディーや構造体， 
あるいは制御構造などの始まりと終わりを表わすために用いられています. 

この LOOK は，アスキーファイル中の多重の中カツコの深さを調べ，設定し 
た深さよりもさらに深い中カツコに対しては，中カツコの外側だけをターミナ 
ルに表示します（ただし，どの深さでも中カツコ自身は表示します）. 

たとえば，中カツコの深さを1に設定（ォプションパラメータとして入力）し 
た場合には，ソースファイル中で定義された関数のへツダ部を見ることができ 
ます. 

_ Explanation 

COM ファイルは LOOK . COM とします. 

コマンドラインからの入力は次のようになります. 


LOOK FILENAME 〔 depth 〕 

FILENAME は内容を見たいアスキーファイルとエクステンシヨンです. 
depth は多重の中カッコの深さを指定するためのオプシヨンです.この depth 
を指定しない場合は，0にセットされます.深さが0の場合あるいはマイナス 
の場合には，中カッコのみを表示します.また，ファイル内の中カツコの深さ 
より指定を深くした場合には，ファイルをすべて表示します. 

なおこの LOOK コマンドでは，ダブルコーテーシヨンマーク”やシングルコ 
—テーシヨンマーク’で囲まれた内容や，コメントの内容としての中カッコは， 
中カツコとしては扱われません. 
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サンプルファイル A > TYPE EXAMPLE2.C 

/* - example program source - */ 

main() 

{ 

int c; 

for (c = 0; c < 10; C++) 

{ . 
printf( "%d is ", c); 
if (c % 2) 

printf("{ODD}.\n"); 

else 

printf("{EVEN},\o"); 

} 

} 


出力例 


A>LOOK EXAMPLE2.C 

{{}} 

A>LOOK EXAMPLE2.C 1 

/本 - example program source - 木 / 

main() 

{{}} 


A>LOOK EXAMPLE2.C 2 

/* - example program source - * / 

main() 

{ 

int c; 

for (c = 0; c < 10; c++) 

{} 


A>LOOK EXAMPLE2.C 3 

/* - example program source - 本 / 

main() 

{ 

int c; 

for (c = 0; c く 10; c++) 

{ 

printf("%d is ", c); 
if (c % 2) 

printf("{ODD}.\n"); 

else 

printf("{EVEN},\n"); 
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Ibource List 


/* 

/* 

LOOK 

*/ 

*/ 

/* 

/* 

Aug.1984 

*/ 

*/ 

/* 

Programed by M.Hanari 

*/ 

/* 


*/ 


斧： luc 丄 ude "b:stdio.h" 

浮 define CPM—EOF 0x1 a 

main(argc / argv) 
int argc; 
char *argv[]; 

{ 

int level= 0 , atoi(); 
char *1 一 ptr; 

if ((argc ==2) || (argc == 

{ 

if (argc ニニ 3) 

level=*argv[2] - 
look(argv[1]/ level); 


3)) 


else 


printf("Bad command line inputi\n"); 

printf(" Usr : LOOK filespec. [nesting level]\n"); 


look(f name, level) 
char *f 一 name; 
int level; 

{ 

int c; 

FILE *fp, *fopen(); 


if ((fp = 
{ 

while 


fopen(f_name , "r")) i= 0) 

((c = getc(fp)) != EOF 
&& c != CPM EOF 


putchar(convert(c , level)); 
putchar('\n ')； 


else 


puts("Bad file access!"); 


浮 define OUT 0 
浮 define SINGLE Q 1 
が define DOUBLE Q 2 
斧 define ON 1 
痒 define OFF 0 
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convert(c,level) 
char c; 
int level; 

{ 

static int depth 
int q; 


0； 


if ((q = q check(c)) 

{ 

if (c == •{■) 

{ 

depth++; 

} 

else if (c == '}' 

{ 

depth--; 


if (depth > =level) 

{ 

if (q != OUT) 
c = '\0 '； 
else if ( i((c = 
c = '\0'; 

} 

return(c); 


OUT) 




II 


'}')).) 


q_check(c) 
char c; 


static int quot = OUT, flag_d = OFF, flaq s 
if (quot == DOUBLE Q) 


if (flag d 
f lag 一 d 

else 


= ON) 
OFF; 


if (C != , \ n, ) 

{ 

if (c == ’\\_ ) 
flag_d = ON; 

} 


else 


quot = OUT ; 


else 


if (quot 


SINGLE Q) 


if (flag_s 
flag s 

else 

{ 


= ON) 
OFF ； 


OFF ； 
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if (c != 


else 


if (c == 'W ) 

flag 一 s = ON; 

} 

quot = OUT; 


else 


if (c == ，\，" ） 

quot = DOUBLE_Q ； 

else 

{ 

^ ^uot ^S^NGLE Q ； 

} 


return(quot); 
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CALC 

逆ポーランド表記による計算とスタックの表示 


■ Program Outline 

このプログラムは算術式を逆ポーランド表記の式に変換して，計算を行いま 
す.また，算術式を逆ポーランド表記に変換する過程と計算する過程をトレー 
ス（画面に表示）します.トレースは，モードの設定により実行の有無を選択す 
ることもできます.このプログラムでは，扱える数は単精度の実数で指数表記 
は許されてはいません. 

■ Explanation 

COM ファイル名は CALC . COM です.次のように実行してください. 

① コマンド 名を入力します. 

CALC 

② ト レースのモー ドを指定します.ト レースのモー ドは A から D までの4つ 
あり，それぞれ次のようになっています. 

A :逆ポーランド変換，計算ともにトレースせずにすぐに計算結果を表 
示する. 

B :逆ポーランド変換のときのみトレースする.計算過程は表示せずに， 
すぐに計算結果を表示する. 

C :逆 ポー ランド変換はト レースせ ず，計算過程のみト レースして 結果 
を表示する. 

D :逆ポーランド変換，計算ともにトレースして結果を表示する. 

トレースの指定は，英字 （ A から D までのうち1文字で大文字でも小文字でも 
よい）を入力し，キャリッジリターンを入力します. 

現在設定されているモードは，画面にプロンプトして表示されます.たと 
えば，カーソルの左に次のようなプロンプトが表示されている場合には， 
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A ] 

ト レースの モードは A という ことになります.もし，モードを変更をする必 
要がない場合には，次の③へ進みます. 

③ 計算（あるいはトレース）する算術式を入力します.入力する算術式に許さ 
れる文字，記号は数字の0から9まで，小数点，負符号，+， 一 ，*，/お 
よび小カッコ （） だけです.等号=は許されません.また変数も許されません. 
入力する算術式の長さは199文字 （ MAX — BUF -1) まで許されますが，あま 
り長いとトレースしたときに コンソールの 1画面に表示しきれず見ずらくな 
ります. 

カッコは入力文字数が許す限り多重で用いることができますが，左カッコ 
と右カッコの対応はチヱックしていないので，正しく対応していない場合の 
動作は保障できません. 

キャリッジリターンの入力によって算術式の入力が終了して，次の④の逆 
ポーランド変換が始まります. 

④ 逆ポーランド变換の実行です.逆ポーランド変換は入力された算術式を左 
から右に評価していきます.逆ポーランド変換をトレースする（トレースモ 
ードが B または D のとき）場合にはこのようすが表示されます.トレースは， 
1ステップ終わるたびに入力待ちとなり，キャリッジリターンが入力される 
と次のステッブに移ります. 

⑤ 計算の実行です.逆ポーランド変換が終了すると，すぐに計算を始めます. 
計算は逆ポーランド変換でトレースしたときに，画面に表示されている左の 
スタックに積まれた逆ポーランド表記の式を，上から順に取り出して計算し 
ていき，スタックが空になると終了します.計算をトレースする（トレース 
モードが C または D のとき）場合には，このようすが表示されます. 

④と同様にトレースは1ステップずつ進みます. 

⑥ 結果を表示します.トレースのモードに関係なく，結果を表示して，②の 
入力待ち状態になります.トレースモードを変える場合は，②のトレースモ 
ード変更の入力をし，変えない場合には次に計算（あるいはトレース）したい 
算術式を③に従って入力します. 

⑦ CALC コマンドを終了させて OS に戻るときは，コントロール C の入力によ 
ってブレーク します. 
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出力例 


III Reversed Polish Calculation /// 

A : Normal mode 
B : Convert trace only 
C : Caluclation trace only 
D : Full trace 


A] b 

B] 1.2 + 3 

1.2 + 3 


1.2 | 



III Answer /// 


1.2 

1.2 + 3 == > 1.2 3 + 

】 ANSWER= 4.2000 

B]c 

C 】 1.2 + 3 

1.2 + 3 ==> 1.2 3 •+ 

>> PUSH DATA << 


1.2 3 + 

| 1.2000 | 

--- X=0. 000000 Y = 0. 000000 



>> PUSH (X + Y) << 

1.23 + 

| 4.2000 | 

- X=1 .200000 Y=3. 000000 


> > POP ANSWER < < 

1.23+^ 

- X=1.200000 Y=3. 000000 


]ANSWER= 4.2000 

C】a 

A]1.23+4.56*2.5 

1.23+4.56*2.5 ==> 1.23 4.56 2.5 * + 

]ANSWER=_ 12.6300 
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■ Source List 

/* */ 

/* Reversed Polish Calculation With Tracer */ 

/* */ 

/* Aug.1 984 Gij utsuhyouronsha */ 

/* Programed by M.Hanari & M.Matsuzaki */ 

/* */ 

斧 include "b:ctype.h" 

^define MAX_BUF 200 

が define EOF 1 
^define EMK '\0' 

が define TRUE 1 
浮 define FALSE 0 

char a[MAX BUF]; 
char buf[MAX_BUF]; 
char tm; 

main() 

{ 

int ct; 

title(); 
for (?;) 

{ 

while (key 一 in(> i= TRUE) 

putchar('\0 ')； 
chenge(); 

printf("%s ==> ",a); 

prts(); 
ca 丄 c(}; 

for (ct = 0;ct < 100;ct++) /* buffer clear */ 

buf[ct] = '\0'; 

} 

} 


/* title & menu 
title() 


puts("\t/// 
puts("\t 
puts("\t 
puts("\t 
puts("\t 
tm = 'A 1 ; 


*/ 


Reversed Polish Calculation ///\n"); 
A : Normal mode"}; 

B : Convert trace only"); 

C : Caluclation trace only"}; 

D : Full trace\n"); 


/* get formula from console */ 
key in() 
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CALC(CP/M-80) 


char c; 

printf("%c]",tm); 
gets(a); 

if (((c = *a) >= 'A' && c <= 'D') || 

(c >= 'a' && c <= 'd') ) 

tm = (islower(*a) ? toupper(*a): *a); 

else 

switch(*a) 

{ 

case '\0 ': 

break; 
default: 

return(TRUE); 

} 

return(FALSE); 


/* Convert to reversed Polish style */ 

char fbuf[MAX 一 BUF]; 

char *ptr,*bufptr f *fbufptr; 

chenge() 

{ 

ptr = a; 
bufptr = buf; 
fbufptr = fbuf; 
while (*ptr •= '\0') 

{ 

if (number(ptr) == TRUE) 
mov numb(); 

else 

if (operator() == FALSE) 

continue; 

trace(); 

} 

if {fbufptr > fbuf) 

while (fbufptr > fbuf) 
mov sub(); 

♦bufptr = EOF; 
answer(); 


/* operators' process */ 
operator() 

{ 

char c; 

switch (*ptr) 

{ 

case '('： 

*fbuf.ptr++ = *ptr++; 
break; 
case ')': 

while (fbufptr[-1]!='(') 
mov sub(); 
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fbufptr-- ; 
ptr++; 
break; 
case '* 1 : 
case 1 " : 

if (fbufptr > fbuf) 

if ((c = fbufptr[-1])==II c == V) 
mov sub (); 

*fbufptr++ = *ptr++; 
break; 
case '+': 

mov op(); 
break; 
case 1 -': 

if ( ptr > a && 

(number(&ptr[-1]) ニニ TRUE || ptr[-1]==')')) 
mov op(); 

else 

{ 

*bufptr++ = *ptr++; 
return(FALSE); 

} 

break; 
default : 
ptr++; 
break; 

} 

return(TRUE); 


/* trace-mode check and print */ 
trace() 

{ 

char *ct; 

if <tm == 'B' || tm == 'D') 

{ 

puts(a); 

for (ct = a ;++ct < ptr; putchar('') 
puts!" 、 • い； 

stc Drt(bufptr,fbufptr); 
getchar(); 


/* print reversed Polish style */ 
answer() 

{ 

if (tm == 'B' || tm == 'D') 

{ 

puts("/// Answer ///\n"); 
stc prt(bufptr,fbufptr); 
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/* stack print on trace-mode 木 / 
stc_prt(bufptl f bufpt2) 
char *bufpt1 ,*bufpt2; 


CALC ( CP / M -80) 


int dpsl; 

bufptl--; 
bufpt2 --; 

dpsl=dps cnt(bufptl); 

while ((dpsl >= 0) || (bufpt2 >= fbuf)) 

{ 

if (dpsl==(bufpt2 - fbuf}) 

{ 

printf("| %8s | | %c |\n" 

,bufptl=back 一 ptr(bufptl) ，木 bufpt2--); 
bufptl--; 
dpsl —— *, 


else 


if (dpsl > (bufpt2 - fbuf)) 

{ 

printf("| %8s | | 


bufptl - 
dpsl--; 


|\n" 

,bufptl=back 一 ptr(bufptl)}; 


else 


printf("| 


%c |\n M ,*bufpt2--); 


puts(" 




/* number check */ 
number(n 一 ptr) 
char *n ptr; 

{ 一 
char c; 


if (((c = *n_ptr) >= '0' && c <= 1 9') || c =='.') 

return(TRUE); 
return(FALSE); 


/* move number */ 
mov numb() 

一 { 

char *c; 
do 

{ 

*bufptr++ = *ptr++; 
c = bufptr; 

} 

while (nul in() == c); 
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/* endmark set of numbers' end */ 
nul in() 

一 { 

if (number(ptr) == FALSE) 

*bufptr++ = EMK; 
return(bufptr); 

} 

/* move operator */ 
mov op() 

一 { 

if (fbufptr > fbuf) 

if (fbufptr[-1]!='(') 
mov sub(); 

*fbufptr++ = *ptr ++; 


/* move operator sub */ 
mov sub() 

一 { 

*bufptr++ = *--fbufptr; 
*bufptr++ = EMK; 


/* count depth of bufer */ 
dps cnt(tp_ptr) 
char *tp_ptr; 

{ 

int dps = 0; 

for (to Dtr-- ;buf <= tp_ptr ;tp_ptr--) 
{一 

if (*tp 一 ptr == EMK) 
dps ++; 

} 

return(dps); 


/* pointer back for stack print */ 
back 一 ptr(tp_ptr) 
char ptr; 

{ 

while (* —— tp ptr != EMK) 
if (buf = 二 tp 一 ptr) 
return(buf ); 
return(++to ptr); 


I 、 print reversed Polish style */ 
prts() 

{ 

char *p_ptr; 

for (p 一 ptr = buf ； *p_ptr != EOF ;p_ptr 
{一 

if (*p—ptr == EMK) 
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putchar( 1 •); 

else 

putchar(*p_ptr); 

} 

puts( n \n M )? 


/* Calculation block */ 

浮 define EOW 0 
浮 define EOF 1 
存 define VAL 2 
が define OP 3 

存 define MAX_STK 100 

double stack[MAX_STK ], *stack_p; 

/* Revrsed Polish formula calculation */ 
calc() 

{ 

char c, *word_p; 
int atr(); 

double ope ( ) , pop (し atof ( ) , x =： 0, y =0, z, answer? 

stack_p = stack; 
word_p = buf; 

while (atr(word 一 p) != EOF) 

{ 

if (atr(wordp) == VAL) 

{ 

push(atof(word p)); 
push w(word p, x, y); 

} 一 

else 

{ 

y = pop(); 

pop_y(word_p, x, y); 
x = pop ()； 

pop x(word_p, x, y); 
z = ope(word_p , y, x); 
push(z); 

push z(word_p, x, y, z); 

} 

next(Sword p); 

} 

answer = pop(); 

if ((tm == 'C') || (tm == 'D')) 

{ 

printf("> > POP ANSWER < <\n\n"); 
dsp stk(word_p, x, y); 
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if (*word_p == EOF) 
return(EOF); 
else if ((*word_p == 
( 木 word 一 p == 
(*word_p == 
(*word_p == 
return(OP); 

else 

return(VAL); 


/* word push */ 
push w(word_p, x, y) 
char *word p; 
double x, y; 


if ((tm == 'C') || (tm == 1 D')) 

{ 

printf("> > PUSH DATA < <\n\n"); 
dsp stk(word_p, x, y); 
while (getchar() 1= '\n 1 ) 


/* Y pop */ 
pop_y(word 一 p, x, y) 
char *word_p; 
double x, y; 

{ 

if ((tm == 'C 1 ) || (tm == 1 D')) 

/ 

printf(">> POP Y <<\n\n"); 
dsp stk(word_p, x, y); 
while (getchar() != 1 \n') 


/* X pop */ 
pop 一 x(word_p, x, y) 
char *word p; 
double x, y; 

if ((tm == 'C') || (tm == 'D')) 

{ 

printf (••>> POP X <<\n\n"); 
dsD stk(word_p, x, y )} 
while (getchar() •= '\n') 
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printf("] ANSWER= %10.4f\n", answer); 
printf(" \n"); 


/* word attribute check */ 
int atr(word_p) 
char *word_p; 


+ 1 木/ 
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/木 results of operate push */ 
push_z(word_p , x, y, z) 
char *word_p; 
double x, y, z; 

{ 

if ((tm == 'C') || (tm == 'D' )) 

{ 

printf(">> PUSH (X %c Y) <<\n\n", 
dsp_stk(word p, x, y); 
while (getchar() != '\n') 


/* value data push */ 
push(f 一 data) 
double f data; 


*stack_p++ = f data; 


/* value data pop */ 
double pop() 

{ 

return(*--stack d); 


/* operation on operator */ 
double ope(op_ptr, val1 , val2) 
char *op_ptr; 
double val1,val__2; 

{ _ 一 
char c; 
double ans; 

switch (*op_ptr) 

{ 

case '+': 

ans = val_2 + val1; 
break; 
case '-': 

ans = val 一 2 - val1; 
break; 
case '*': 

ans = val2 * val1; 
break; 
case 1 ": 

ans = val 2 / val1; 
break; 


*word p); 


return(ans); 
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卜 word DOinter set to next word 今 I 
next (wd ptr) 
char **wp ptr; 

{ 

while (**wp_ptr != EOW) 

(*wp_ptr)++; 

(*wp_ptr)++; 


/* display value stack top */ 
dsp stk(word p, x, y) 
char *word_p; 
double x, y; 

{ 

double *sp; 

dsp 一 ptr(word_p); 

for 一 （sp = &stack p[-1]；sp >= stack; sp--) 
printf( M | %10.4f |\n", *sp); 

printf ( " - X=%f Y=%f \n", x, y ); 

printf r\n\n M ); 

} 

/* display value stack point * / 
dsp_ptr(word 一 p) 
char *word p; 

{ 

char *buf_p; 

for (buf_p = buf; *buf_p 1=EOF; buf_p++) 
if (*buf 一 p == 1 \0 1 ) 
putchar( 1 '); 

else 

putchar(*buf 一 p); 
piltchar ( ' \n ')； 

for (buf p = buf ； buf_p != word 一 p; buf_p++) 
putchar(''); 
printf ( ，ハ n"); 
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cat 

ファイルとファイルを連結 


■ Program Outline 

cat は同名の UNIX の基本コマンドを MS-DOS V .2. 11に移植したものです. 
本来の機能はファイルとファイルを連結 （concatenate ) することですが ， UNIX 
上ではファイルの内容を出力させるのによく使われます. 

入出力は標準入出力になっています. 


■ Explanation 

EXE ファイル名は cat . EXE とします. 

コマンドラインの一般的な書式は次のようになります. 

A>cat オプションファイル名 1 〔ファイル名 2 . 〕 

ファイルとファイルを連結するときは，書式のようにファイル名1，ファイル 

名2， . ， というようにファイル名を入力して下さい.オプションはバー 

クレー版の UNIX4. 1BSD のものに準じています（表 1 ). 

cat の最も単純な利用例は，次のようにファイル名を一つ指定して，そのフ 
ァイルを表示させることです. 

A > cat test 1 .c 

出力例 A>cat testl.c 

/* test program no.i */ 
main(argc f argv) 
int argc; 
char *argv[]; 

{ 

char esc = 27; 

while (--argc > 0) 

printf("%c%s" f esc , *++argv); 
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オプシヨン 

機 肯 i 

— n 

表示するファイルの先頭から順に行番号をつける 

—n b 

一 n の機能に加え，空白行への行番号をはずす 

— V 

通常はマスクされるコントロールコードを表示する 


また，2つ以上のファイルを指定して，続けて表示させることもできます. 

A > cat test 1 .c test 2 . c 

ちょっとひねった使い方としては，小さなファイルを作成するのにも使うこ 
とができます.標準出力をリダイレクトしてファイル名とする方法です.実例 
をあげると， 

A>cat > sample 

とすると，標準入力できるキーボードからの入力がそのまま sample という名 
のファイルになります.入力のを終えるときは， MS - DOS のファイル終了信号 
△ Z を入力して，キャリジリターンを押して下さい （ UNIX では AD ). 

この方法を使えば，コント ロール コードの入った フ ァイ ル も作ることができ 
ます. 

出力例 A>cat > sample 

abcdefghijklmnopqrstuvwxyz 

A G 八 DAD A T A DYY A U a A A 

"Z 

このようなファイルは通常は中身が表示されませんが， _ v オプシヨンを使用 

することにより内容を見ることができます. 

出力例 A>cat sample 

abcdefghij klmnopqrstuvwxyz 
a 

A>type sample 

abcdefghijklmnopqrstuvwxyz 


A>cat -v sample 
abcdefghijklmnopqrstuvwxyz 
"U a^A 
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cat(MS-DOS) 


■ Source List 


/* 

/* concatenate 

/* 

/* copyright (C)1984 

/* programed by y.aihara 


斧 include <stdio.h> 
struct { 

unsigned visual : 1, 
number : 1 , 
blank : 1; 

} opts; 

main(argc, argv) 
int argc; 
char *argv[]; 

{ 

FILE *fp, open(); 
char *s; 


*/ 

V 
*/ 
*/ 
*/ 

V 


•opts という構造体の定義各変数を bit 単位で定義 


while (--argc > 0 && *argv[ 1 ] == •-•} -- オプションチェック 

tor (s = *++argv+1 ; *s; s++) 
switch (*s) { 

case 'v 1 : 

opts.visual=1; -- v オプシコ、， 

break ; 
case 'n' : 

opts. number =1; - n オプション 

break; 
case 'b': 

opt§.blank =1; - b オプション 

break; 
default: 

error("Usage: cat -vnb file...NULL}; 

} ェラー 

if (argc == 0) 

filecopy(stdin) ; - = — stdin ファイルをコンソール画面に出力 

else 

while (argc-- > 0) { リードファィ 

if ( (fp = fopen(* ++argv, "r")) == NULL } ルオープン 
error("cat: can't open %s", 木 argv}; エラ — 表示 

f ilecopy ( fp) ； - つ ァイルをコンソール画面に出力 

fclose(fp) ;- ファイルのクローズ 

} 


/^define MAXLEN 256 


f 1 丄 ecopy(fp} 
FILE *fp; 
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char line[MAXLEN] ; 
int 丄 ineno = 0; 

while (fgets(line, MAXLEN, fp) l =. NULL) { 

if (opts.number && (iopts.blank || *line != '\n')) 

printf ("%3d ", + + lineno); - ラインナンノ く 一の表示 

if (opts.visual) 

look (line) ; - V フラグ ON なら LOOK を実行 

else 

printf("%s", line); - フアイノレ本体の表示 


look(s) 
char *s ; 

{ 

for (; 平 s; s + + ) --- コ 

if (iscntrl (本 s)) 

switch (*s) { 

case '\n' : - 

case '\t' : - 

case '\b' : - 

case '\r' : - 

case '\f' : - 

putchar(*s); 
break; 

case 017 7: - 

printf ( ，い？ , '） 
break; 
default: 

printf (• ，へ％ c" 
break; 

} 

else 

putchar(*s); - 


ントロ ー ル コー ドのチ エック 


-ラインフィードコードか？ 

タブ コー ドか？ 

バックスペースコードか？ 

リターンコードか？ 

フォームフィードか？ 

- 以上ならそのまま出力 

-デリート コー ドか 


上以外のコントロール 
t *s | 0100);—コードなら“八”をつ 

けて表示 

—コントロールコード以外ならそのまま表示 


エラーモジュール 

卜 error masage print and exit ， I 

^include < stdio . h > 

error(si,s2 ) 
char *s1,*s2; 

{ 

fprintf(stderr, si,s2); 
fprintf ( stderr, "\n"); 
exit(1); 
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heaa 

プログラムのへッダを見る 


■ Program Outline 

head は UNIX のバークレー版にある同名のコマンドを MS-DOS V.2. 11 に 
移植したものです. 

基本的な機能としては，ファイルの最初の部分を先頭から指定した行数だけ 
出力することです.これを利用して，各プログラムのヘッダの部分のみを見る 
ことに使います.また，標準入出力を使っているので， コマンドの ハ。イプライ 
ンの フィルタ •コマンドと しても利用できます. 

■ Explanation 

EXE ファイル名は head . EXE とします. 

単独で使うときのコマンドラインからの入力は，次のように行います. 

A > head — 行数ファイル名 1 〔ファイル名 2 . 〕 

この場合，行数を省略すると，10を指定したことになります.ファイル名は 

いくつ続けてもかまいません.オプションはありません. 

最も単純な使い方は次のようになります. 

A > head testl.c 

/* test program no.1 */ 

main(argc, argv) 

int argc; 

char *argv []; 

{ 

char esc = 27; 
while (--argc > 0) 

) printf("%e%s M , esc, *++argv); 

このように， C のソースファイル testl . C の最初から 10 行目までを表示され 
ます.また，行数を指定することにより，表示する範囲を変えることができま 
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す.ファイル名はいくつでも並記できますので，複数のファイルの初期設定の 
比較などに便利です. 

出力例 A>head -5 testl.c 

卜 test program no.1 */ 
main(argc, argv) 
int argc; 
char *argvf]; 

{ 

このブログラムは標準入出力によって入出力を行っていますので，ハ°イブラ 
インの中でフィルタ.コマンドとして利用することもできます. 

具体的な使用例をあげると，数値の入ったデータファイルの中のデータを小 
さい順に3つ表示する仕事は，次のようにコマンドを組み合わせることによっ 
て実現できます. 

出力例 A > type samplel 0 
452 
1124 
45 
487 
1049 
10 
2045 
2199 
25 

A > type samplel0|sort|head -3 
10 
25 
45 


■ Attention 

リンク時に cat に掲載されているエラーモジュールをリンクしてください. 


— エフーメッセージ . . . . . 

c ソースの 移植 

OPTIMIZING C で書いてあるプログラムを他の C に移植するときは次の点 
に留意してください. 

•文字型に関する関数 ( isalpha , isdigit , tolower , etc .) を使用しているブロ 
グラムでは，” ctype . h ” ファイルを include する. 

• gets 関数の書式が他の C と異なっているので，移植する C の書式に変える. 
♦ビット •フィール ドをサボート していない C は， マクロ 定義とビット演算 
を使う （ K & R の『プログラミング言語 C 』 を参照されたし）. 
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■ Source List 


head (MS-DOS) 


/* 


*/ 

/* 

head 

*/ 

/* 


*/ 

/* 

copyright (C)1984 

*/ 

/* 

programed by y.aihara 

*/ 

/* 


*/ 


斧 include <stdio.h> — 

main(argc, argv) 
int argc ? 
char *argv[]; 

{ 

FILE *fp, *fopen() : 
int length =10; — 
int title = 0; - 


-標準入出カヘッダを含む 


if (argc > 1 && *argv[ 1 ] == ' - 
—— argc; 

length = atoi(*++arav+1); 


一行数 

タイトルを表示するかのフラグ 

-オプシヨンの行数の指定 


if [argc ニニ 1 ) 

fllecopy(stdin, length); 
else { 

if (argc >2} 
title =1 
while (--argc >0) { 

if ((fp = fopen け ++argv, 


ーフアイルの指定がなければ標準入力 
から読み込む 

フアイルが複数ならタイトル表示フラグを on 


_ — _ r")) == NULL) — ファイルを 

error("head: can’t open %s M , 木 argv) j オープン 
if (title) フラグが ON な 

printf ( " = => %s <= = \n M , らタイト ノレ 表示 

len g th " 一指定ファイルから読んで指定行数表示 


if (argc > 1 ) 

putchar(•\n•} ;| 


- 次のフアイルがあれば空白行を出力 


^define MAXLEN 256 


-1 行の最大文字数 


nlecopy ( rp , len ) -ファイルの先頭を表示 

FILE * fp ; 

int 丄 en; 

{ 

char line [MAXLEN]; - 1 行入力用のバッファ 

指定行数を超 
えるか EOF に 
なるまで出力 


while (len-- > 0 && fgets(line, MAXLEN , fp)) 
printf("%s",line}; 
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響口回 


uniq _ 

ファイルの要素の抽出法と要素数を知る方法 


■ Program Outline 

このブログラムは， UNIX 上の同名のコマンドを MS-DOS V .2.11 上に実現 
したものです.基本的な機能は，隣り合った行の内容を比較し，重複している 
場合はその行を削除することです.実際は， sort と組み合わせて ファイルの 要 
素を柚出したり，要素の数を知る ために 使われます. 

これ以外に，パイプライン上の フイ ルタコマンドとしても使用できます. 


■ Explanation 

EXE ファイル名は uniq . EXE とします. 

コマンドラインからの入力は次のような書式になります. 


A > uniq 〔オプション〕ファイル名 1 〔ファイル名 2 〕 

オプションの機能は表1を参照して下さい.ファイル名1に入カファイル名， 

ファイル名2に出カファイル名を指定します. 

たとえば， sample という ファ イ ルの 中の重複しているデータを削除して， 

sample , new というファイルに出力すると，次のようになります. 

A>cat sample 
108 
125 
125 
132 
148 
148 


A>uniq sample samp 丄 e.new 

A>cat sample.new 
108 
125 
132 
148 
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uniq( MS-DOS) 


ただし， uniq は隣り合った行だけを比較するため，次に掲げる sample のよう 

なファイルについては効果を発揮しません . 

A>cat sample 

125 

148 

132 

108 

125 

148 


このような場合には，パイプラインを利用して sort コマンドと組み合わせて 
使ぃます . 

A>cat sample | sort | unia 
108 
125 
132 
148 


パイプライン上では標準出力へ出力することになるため，ファイルを作ると 
きはリダイレクト機能を使ってやる必要があります . 


オプション 

機 肯巨 

— C 

各行の先頭に重複回数を表示する 

一 U 

重複しない行のみを表示する 

-d 

重複した行のみを表示する 


…-エラーメッセージ . 

C のデバッグ 

c プログラミングで間違いやすいミスをいくつかあげます.デバッグの参考 
にしてください. 

•不注意による場合……スペルミスや’；，および’，，•の付け忘れや， 

(’および’ {’ の対応が悪いなど. 

•制御の流れ . if と else のつづり，ルーブ本体の範囲（’ { ，の付け忘れ)， 

case 文中の break の有無などが違っている場合. 

• 式の評価順序……カッコでくくれば安心です. 

參境界条件 . ループの脱出条件，型の精度および桁あふれ，文字列操作し 

たときのヌルキャラの付け忘れなど，主に無限ルーブを引き起こす バグ 

籲その他 . 関数の引数の型が一致していないポインタ型と整数型の違法な 

演算による場合など. 
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Ibource List 


/* 

/* 

/* 

uniq 



*/ 

*/ 

*/ 

/* 

copyright 

(C) 

1984 

*/ 

/* 

/* 

programed 

by 

y.aihara 

*/ 

*/ 


-標準入出カヘッダをインクルード 


-構造体として uniq , dup , count を lbit で定義 


^include <stdio.h> - 

^define MAXLEN 256 

struct { 

unsigned uniq : 1, 
dup : 1 , 
count : 1; 

} opts; 

main(argc, argv) 
int argc; 
char *argv[]; 

{ 

FILE 本 fpl, 本 fp2, *fopen(); 

char *s; 

while ( --argc > 0 && *argv [1]=='-') - オプションがあるかどうか 

for (s = *++argv+1;*s; s++) 
switch (*s) { 
case 'u': 

opts.uniq =1 ； 
break; 
case •d•: 

opts.dup =1 ； 
break; 
case 'c': 

opts.count =1; 
break; 

default: a 

error("uniq: illegal option %c", 幸 s ); ンカく正世 

でないならエラーを表示 


-各オブシヨンに応じたフラグの設定 


if (argc == 0) 

uniq(stdin, stdout); 

else if{(fpl=fopen(*++argv, "r")) == NULL) 
error("uniq: can 1 t open %s", 木 argv)j 
else if (argc ニニ 1) 

uniq(fp1, stdout); 


-リードファイ 
ルのオープン 


そのファイル名で uniq ルーチンへ 

ライトフアイ 
_ ルのオープン 


else if ((fp2 ' = fopen(* ++argv , M w u )) == NULL) 
error ( "uniq: can' t create % s " , *argv) ; 

else 

uniq (fpl, fp2) ； -リードファイル，ライ ト ファイル 設定により 

) uniq ルーチンへ 

uniq(fpi , fp2) 

FILE 木 fpl,*fp2 ； 

{ 

char line[MAXLEN], buf[MAXLEN]; 
int c = 0; 
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uniq(MS-DOS) 


*buf = '\0' ; - buf の先頭にヌルコードを代入 

while ( fgets( line, MAXLEN, fpl)) - Line にフアイノレ内容をリード 

if (strcmp(line, buf)) { 

putbuf(buf, c, fp2 )； - 直前の行との比較 

strcpy (buf , line}; —バッファに現在のラインの内容をコピー 
} else 

C + + ; 

putbur(bur , c, f p2 ); 

} 

putbuf(buf, c, fp) 

char *b-uf; - バッファの内容と d の内容を 各 オプション設定に応じて表示する 

int c; 

FILE *fp; 

{ 

if (!opts.uniq && !opts.dup ||\ 
opts.uniq && c ==1 ||\ 

opts.dup && c > 1){ 

if (opts.count &•& c) 

fprintf(fp, "%4d ", c); 
fputs(buf, fp); 

} 

} 
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棚 口 回回圏— 


tr _ 

UNIX コマンドを MS - DOS 上で実現 


■ Program Outline 

このプロ グラムは UNIX の tr コマン ドの 機能を MS-DOS V. 2 .11 上で実現 
したものです.もちろん，標準入出力もサポートしています. 

コマンドの名称は translate (変換）の略記です.その名の通り，数字を含む 
文字および文字式を，指定したものへ置き換えるはたらきをします.本来， UNIX 
上では ASCII 文字だけをサポートしていましたが，このプログラムではカタカ 
ナもサポートしています. 

■ Explanation 

EXE ファイル名は tr.EXE とします. 

コマンドの書式は，以下のようになります. 

A>tr オプション文字列 1 文字列 2 

これにより文字列 1 で指定された文字列を，文字列 2 に変換します.文字列 

1と文字列2は，初めから順に対応していきます.このとき，文字列はひとか 

たまりで変換されるのではなく，1つ1つ変換されます. 

出力例 A>tr abc ABC 

abcderg 
ABCdefa 
へ％ 

この場合，標準入力のキーボードから入力していますので，入力の終了時に 
は MS-DOS の ファイル 終了記号八ヱ（コントロー ル Z) を入力する必要がありま 

す. 

また文字列は ASCII 順であれば，“一”を俾って中間を省略することができま 
す.次に示すサンプルファイルとそれを“ >”を使ってリダイレクトし，入カフ 
ァイルとした際の変換後の結果を見て下さい. 
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tr(MS-DOS) 


サンプノレデータ A>cat sample2 

abcdefghijklmnopqrstuvwxyz 
1234567890 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
1 2345678 9:;< = >?@ABCDEFGHIJKLMN 


変換後の結果 A>tr a-z A-Z <sample2 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

1234567890 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
1 2345678 9:;< = > ?@ABCDEFGHIJKLMN 


また， 一 C オプション 
できます. 

出力例 


を利用すると，文字列1の指定を短くすませることが 


A>cat sample20 
1234567890 


A>tr -c 123 a <sample20 
123aaaaaaaa 

文字列 1 と文字列 2 の 長さが異なって いる 場合は， どちらが 長い かに よって結 
果が変わってきます. 

文字列1が長い場合には，文字列2の余りは文字列1の最後の文字に割り当 
てられます.逆の場合には，文字列2の余りは無視されます. 

文字列中には特殊記号も自由に指定できます. 

出力例 ( 特殊目己号） A>tr a-z @ < sample2 

1234567890 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
1 234567 89：；< = > ?@ ABCDEFGHIJKLM1 


— d オプシヨンを使うときには文字列2の指定は必要ありませんし，指定し 
ても無視されます（表1 ). 


オプション 

機 能 

一 d 

文字列 1 の文字を削除 

—C 

文字列 1 以外の文字を指定 

— S 

置き換えた文字が連続する場合， 1 文字だけに圧縮する 


■ Attention 

リンク時に cat に掲載されているエラーモジュールをリンクしてください . 
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■ Source List 


/* 


*/ 

/* 

translate 

*/ 

/* 


*/ 

/* 

copyright (C)1984 

*/ 

/* 

program by y.aihara 

*/ 

/* 


*/ 


佘 include <stdio.h> 

^define MAXLEN 256 
^define iskanji(x) x&O 200 


struct { 

unsigned delete : 1, 
squeeze : 1, 
complement : 1; 

} opts; 

main(argc, argv) 
int argc; 
char *argv[]; 

{ 

char from[MAXLEN], to[MAXLEN], *s; 
char *index(); 
int c, cc, i; 

while (--argc > 0 && *argv[1]=='-') 
for (s = *++argv+1;*s; s++) 
switch (*s) { 

case 'd': 

opts.delete =1; 
break; 
case 's': 

opts.squeeze =1; 
break; 
case 'c': 

opts.complement =1; 
break; 
default: 

argc = 0; 
break; 

} 

if (argc !=1 && argc 1= 2) 

error("Usage : tr [opt] strl str2" 
expand(*++argv, from); 
if (opts•complement) 
invert(from ); 
if (argc ==1) 

strcpy(to, from); 
else { 

expand(*++argv , to); 
stretch(to, strlen(from)); 


NULL )； 
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cc = 0; 

while ((c = getchar()) != EOF) 



tr( MS-DOS) 


if (iskanji(c)) { 

printf("%c%c M , c, getchar()); 
continue; 

} else if (!(s = index(from, c))) 
putchar(cc = c); 
else if (opts.delete) 
continue; 

else if (!opts.squeeze || *(to + (s-from)) != cc) 
putchar(cc = *(to + (s - from))); 


/* expand 木 / 

expand(s, t) 

char *s, 本 t; 

{ 

char c; 

while (*s) { 

*t++ = *s++; 

if (*s == '-' && *(s-1)<=*(s+1)){ 
c = *(s-1)+1; 
while (c <= *(s+1)) 

*t++ = C++ ; 

s += 2; 

} 

} 

*t = '\0'; 


/* invert */ 

invert(s) 
char *s; 

{ 

char buf[256], *t = buf; 
int c =1; 

while (c < 0400) 

*t++ = C++ ; 

*t = ， \0 ， ； 
squeeze(buf, s); 
strcpy(s , buf); 


/* squeeze * / 

squeeze(s, t) 
char 本 s, *t? 

{ 

char 本 p, *q; 

for (p = s; *p; p++) { 

for (q = t; *q; q++) 
if (*p == *q) 
break; 
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*s 


if い * q) 

*s + + = 


*P; 


•\o'? 


/* stretch */ 


stretch(s , n) 
char *s; 
int n; 

{ 

int i = strlen(s); 
char c = s[i-1]; 


while (i < n) 

s[i++] = c; 
s[i] = '\0 '； 
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_ 口 0 _ — 


od 

ファイル内容を出力する豊富な機能 


■ Program Outline 

od は UNIX の同名のコマンドを MS-DOS V .2. 11上で実現したものです. 
これは，ファイルの内容をみる専用の命令ですから， cat に比べると機能が豊 
富になっています.特に， cat の 一 v オプションでは表示されない，タブや ヌル 
などの特殊記号も表示することができます. 

MS-DOS の DUMP コマンドと 併用すると有効です. 

■ Explanation 

EXE ファイル名は od.EXE とします. 

コマンドラインでの入力は次のようになります. 

A > od 〔オプション〕ファイル名 

入力するときに，オプションを省略した場合は，デフォルトは一〇にセット 
されます.それぞれのオプションの機能については，表1を参照して下さい. 
この入力においては，ファイル名の指定は1つだけになって います . 実行例を 
次に示します. 

A>oa samplel 

0000000131261132263133665134266135271136273137275140 
277 

0000020142701142303143305144307145311 

— C オプションを指定した場合，通常は表示されない文字が表 2 に示すよう 
に変換された状態で出力されます. 

A>od -c samplel 

0000000 12345768 9: ;< = 

> ? @ 

0000020 AECDEFGHIJ\n 
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—b, —d, —x の各オプションに関しては，次の実行例を参照して下さい . 


A>od -b 
0000000 

sample 1 

261 262 

263 

264 

265 

267 

266 

270 

271 

272 

2 

73 274 

0000020 

275 276 

301 305 

277 

303 

300 

304 

305 

306 

307 

310 

311 

312 

0 


12 


A>od -d sample I 

0000000 -19791-19277 -18507 -18250 -17735 -17221 -16707 -16 
193 

0000020 -14911 -15165 -14651 -14137 -13623 
A>od -x samplel 

0000000 B2B1 B4B3 B7B5 B8B6 BAB9 BCBB BEBD COBF 
0000020 C5C1 C4C3 C6C5 C8C7 CAC9 


オ プシヨン 

表示単位 

表示形式 

— 0 

16 bit ( 1 word) 

8 進数 

— c 

8 bit (1 byte) 

ASCII コード 

一 b 

8 bit (1 byte) 

8 進数 

— d 

16 bit (1 word) 

10 進数 

—X 

16 bit (1 word) 

16 進数 


機肯 I 名 

JIS コード （ &H) 

表 示 

null ( ヌル） 

00 

/〇 

back space (バックスペース） 

08 

/b 

formfeed ( 書式送り） 

00 

/f 

newline ( 改行） 

0A 

/n 

carriadge return ( 復帰） 

0D 

/ x 

tab ( 水平タブ） 

09 

/t 

その他 

— 

3 桁の 8 進数 


■ Attention 

リンク時に cat に掲載されているエラーモジュールをリンクしてください . 
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■ Source List 


od( MS-DOS) 


/* 

/* 

/* 

/* 

/* 

/* 


octal dump 

copyright (C)1984 
programed by y.aihara 


佘 include く stdio.h 〉 

存 define ASCII 001 
痒 define OCTAL 002 
浮 define BYTE 004 
存 define DECIMAL 010 
^define HEXDECI 020 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


main(argc, 
int argc; 
char *argv[]; 


argv) 


FILE 本 fp, *fopen(); 
char *s; 

int mode = OCTAL; 


while (--argc 

> 0 && 

♦argvf11==' - 

for (s = 

*++argv+1;*s; s++) 

switch (*s) 

{ 

case 

'c': 



mode = 
break; 

ASCII? 

case 

'o': 



mode = 
break; 

OCTAL ； 

case 

'b' : 



mode = 
break; 

BYTE ； 

case 

'd' : 



mode = 
break; 

DECIMAL ； 

case 

'x': 



mode = 
break: 

HEXDECI; 

default: 



argc = 
break; 

0 ； 

/ 

if (argc 1=1) 

error("Usage: od 

-cobdx file", 


.NULL); 

((fp = fopen(*++argv, "r")) == NULL) 
error("od: can't open %s", *argv); 
(mode == ASCII || mode == BYTE) 
dumpl(fp, modei; 

else 

dump2(fp, mode}; 


if 


if 
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dumpl(fp, mode) 
FILE *fp; 
int mode; 


int c 


0, offset, i; 


for (offset = 0; c 1=EOF; offset += 020) 
printf("%07o", offset); 
for (i = 0； i < 16; i++) { 

if ((c = getc(fp)) == EOF) 
break; 

if (mode == ASCII) { 
if (iscntrl(c)) 
switch(c) { 


case 

'\0': 



printf(" 
break; 

WO"); 

case 

•\b •: 



printf(" 
break; 

\\b")； 

case 

'\f': 



printf(" 
break; 

\\f M ); 

case 

'\n' : 



printf( M 
break; 

\\n")； 

case 

'\f : 



printf(" 
break; 



default: 

printf( M %03o", c); 
break; 

} 

else 

printf(" %c", c); 

} else /* BYTE */ 

printf(" %030 n , c); 


putchar('\n')； 


dump2(fp, mode) 
FILE *fp; 
int mode ; 

{ 

int word = 


0 , offset, i; 


for (offset = 0; word != EOF; offset += 020) { 
printf( n %07o", offset); 
for (i = 0; i く 8; i++) { 

if ((word = getw(fp)) =- EOF 
break; 

switch (mode) { 
case OCTAL : 

printf(" %06o ", word); 
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break; 

case DECIMAL : 

printf(" %05d", 
break; 

case HEXDECI: 

printf(" %04x", 
break; 

default: 

break; 


putchar('\n ')； 


word) 

word) 



謹 _ 口 


grep _ 

複数のファイルから文字列を検索 


■ Program Outline 

grep は UNIX のコマンドのひとつで，複数のファイルの中から指定された文 
字列を含む行を検索する機能を持っています. 

通常のこの種のユーティリティに比べ，複数のファイルを同時に検索できる 
ので非常に有用です. 

なお，ファイルを指定しない場合の入出力は，標準入出力となります. 

■ Explanation 

EXE ファイル名は grep . EXE とします. 

コマンドラインの入力の書式は以下のようになっています. 

grep オプション文字列ファイル名1〔ファイル名2 . 〕 

オプションの内容については表1を参照してください.文字列は検索したい 
文字列を入れます.現在のバージョンではタブと スペースは サポートしていま 
せん. 

ファイル名は OPTIMIZING C の場合， （20 — 付加!オプション数）個つづける 

ことができます. 

複数のファイルを指定した場合は，各ファイルの名前を表示してから，該当 
する行を出力します. 


オプシヨン 

機 肯巨 

—V 

指定した文字列を含まない行を表示する 

— n 

表示する行の先頭にファイル中での行番号を表示する 

— c 

指定した文字列を含む行の行数のみを表示する 

— 1 

指定した文字列を含むファイルのファイル名のみを表示する 
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grep( MS-DOS) 


■ Attention 

grep はこのあとに紹介する卬 1 と大半の関数を共有しています.また内部処 
理上の都合で分割.コンパイルした方が望ましいものがあるため，表2のように 
ソースファイルを三分割して，各々のコンパイル後リンクして下さい. 


ソース.ファイル名 

含まれる関数名 

grep.d 

main,- grep ( 計 2 個） 

match, d 

Prepare, match, — match ( 計 3 個） 

sub.c 

getexpre, check, escape, backet, closure, expand 
invent, squeeze, error ( 計 9 個） 


出力例（オプションを付けない場合） 

A>grep char testl.c test2.c 
testl.crchar *argv[]; 
testl.c: char esc = 27; 

test2.c:char *s? 

test2.c: char buf[256], *t = buf; 


出力例（オプション _ v を付けた場合） 


A>grep -v char testl.c test2.c 
testl.c:/* test program no.1 */ 
testl.c:main(argc, argv) 
testl.c : int argg; 
testl.c " 
testl.c 


testl.c 
testl.c 
testl.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 
test2.c 


while (--argc > 0) 

printf( M %c%s" f 

} 

/* invert string */ 

invert(s) 

{ 

int c =1; 
while (c < 0400) 

*t++ = C ++； 

*t = •\0 , ; 
squeeze(buf , s); 
strcpy(s, buf); 


esc , 


*++argv ); 
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■ Source List 


/* 



/* 

/本 

grep 


/* 

copyright 

(C)1984 

/* 

/* 

programed 

by y.aihara 


^include < stdio.h> 


#define MAXLEN 256 
存 define MAXEXPRES 32 

typedef struct reg_exp { 
char *bf; 
int n, m; 

} EXPRES ； 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


static struct flags { 

unsigned invert : 1 , 
number : 1, 
count : 1, 
list :1, 
head : 1 ； 

} opts; 

main(argc, argv) 
int argc; 
char *argv[]; 

{ 

FILE *fp r *fopen ()； 

EXPRES expres[MAXEXPRES]; 
int title, count; 
char *s; 


while (--argc > 0 && *argv[1]== 
for (s = *++argv+1;*s ； s++ 
switch (*s) { 
case 'v': 

opts.invert =1; 
break; 
case 'n': 

opts.number =1; 
break; 
case 'c': 

opts.count =1; 
break; 
case 1 1': 

opts.list =1; 
br6ak; 
case 'h': 

opts.head =1; 
break; 
default: 

argc = 0; 
break; 
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grep( MS-DOS) 


if (argc < 1) 

error("Usage: grep [-vnclh] pattern file’’ ， NULL) 
escape(*++argv); 

if (prepare(*argv, expres)==-1) 

error("grep: bad pattern ", NULL); 
if (argc ==1){ 

count = grep(stdin, expres , NULL}; 
if (opts•count) 

printf("%d\n n , count); 

} else { 

title = argc > 2 && iopts.head; 
while (--argc >0) { 

if ((fp = fopen(* ++argv, "r")) == NULL) 

error("grep: can't open %s", *argv); 
count = grep(fp, expres, title?*argv:NULL); 
if (opts.count && title ||\ 
opts.list && count) { 
printf("%s", *argv); 
putchar(opts.count ? ' : ' : '\n ')； 

} 

if (opts.count) 

printf("%d\n M , count}; 
fclose(fp); 


grep(fp, expres, name) 

FILE *fp; 

EXPRES *expres; 
char *name; 

{ 

char line[MAXLEN], *match(); 
int lineno, count; 
int len; 

lineno = count = 0; 
while (fgets(line, MAXLEN, fp)) { 
lineno++; 

line[strlen(line)-1]='\0 '; 

if (!match(line, expres , &len) == opts.invert) { 
count++; 

if (opts.count || opts.list) 
continue; 
if (name) 

printf( n %s, name); 
if (opts.number) 

printf("%d:", lineno); 
puts(line); 


return(count); 
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/* match */ 

浮 define MAXLEN 256 
/^define MAXEXPRES 32 
^define NULL 0 
浮 define DOT 0 

typedef struct reg_exp { 
char *bf; 
int n, m; 

} EXPRES; 

static struct flags { 

unsigned head : 1 , 
tail : 1 ； 

} fig? 

prepare(pttn, expres) 
char *pttn; 

EXPRES expres[]; 

{ 

char *p, *check(), *getexpres(); 
int i ； 

if (*pttn =={ 
fig.head =1 ； 
pttn ++； 

} 

if (!(p = check(pttn))) 
return(-1); 
if (*p == '$') { 

fig.tail=1? 

*P = '\0 1 ; 

} 

for (i = 0; i < MAXEXPRES ； i++) 

if (!(pttn = getexpres(pttn, &expres[i]) ) ) { 
expres[i].bf = NULL; 
return(0); 

} 

return(-1); 


char *match(srch, expres,len) 
char *srch; 

EXPRES *expres; 
int *len; 

{ 

char *p, *_match(); 
do { 

if ((p = match(srch, expres)) &&\ 

(IflgTtail || i*p)) { 

*len = p - srch; 
return(srch); 

} 

} while (*srch++ && !fig.head); 
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return(NULL); 


grep(MS-DOS) 


char *_match(srch, expres) 
char *srch; 

EXPRES *expres; 

{ 

char *p, *_match(); 
int i; 

if (1expres->bf) 
return(srch); 

for (i = 0; i < expres->n; i++) { 
if (!*srch ||\ 

♦expres->bf != DOT && !index(expres->bf, *srch)) 
return(NULL); 
srch ++} 

} 

for ( ; i <= expres->m; i++) { 

if ((p = —match(srch, expres + 1)} &&\ 

(!fig.tail || !*p)) 
return(p); 
if (! 本 srch ||\ 

♦expres->bf i= DOT && !index(expres->bf, *srch)) 
return(NULL); 
srch++; 

} 

return(NULL); 


/* get expression */ 

痒 define NULL 0 
斧 define DOT 0 

typedef struct reg exp { 
char *bf; 
int n, m; 

} EXPRES; 

char *getexpres(pttn f expres} 
char *pttn; 

EXPRES *expres; 

{ 

char buf[256], *p = buf; 

char *malloc(), ^bracket(), ^closure(); 

if (!*pttn) 

return(NULL); 
else { 

switch (*pttn) { 
case '\\'： 
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pttn++ ; 

*p++ = *pttn++ ; 

*p = '\0 '； 

break; 
case '.': 

pttn++; 

*p++ = DOT; 
break; 
case 1 [': 

pttn = bracket(pttn, p); 
break? 
default: 

*p++ = *pttn ++； 

*p = '\0 '； 

break; 

} 

expres-> bf = malloc(strlen(buf)+1 )； 

strcpy(expres->bf, buf); 

switch (*pttn) { 

case '{': 

case 1 * ’ ： 

case '' + ': 

case '? 1 : 

pttn = closure(pttn, expres); 
break; 
default: 

expres->n = expres->m =1 ； 
break; 

} 

return(pttn); 


/* check */ 

^define NULL 0 

char *check(pttn) 
char *pttn; 

{ 

int t = 0 ； 

while (*pttn) 

switch(*pttn++) { 

case 1 \\': 

if (!*pttn++) 
goto err; 
t =1 ； 
break; 
case '[': 

if (*pttn == い ， ） 
pttn++; 

if (*pttn ==']') 
pttn++; 

while (*pttn && *pttn !=']') 
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grep(MS-DOS) 


pttn++; 
if (i*pttn++) 
goto err; 
t =1 ； 
break; 
case '{': 

if (It) 

goto err; 

while (isdigit(*pttn)) 
pttn++; 

if (*pttn == ',') { 
pttn++; 

while (isdigit(*pttn)) 
pttn++; 

} 

if (*pttn++ i= 1 }') 
goto err; 
t = 0; 
break; 
case '* '： 
case 1 +'： 
case : 

if (It) 

goto err; 
t = 0 ； 
break; 
case ']'： 
case '}': 

goto err; 
default: 

t =1; 
break; 

} 

return(--pttn); 

err: 

return(NULL); 


/ 氺 escape sequence */ 

escape(s) 
char *s; 

{ 

char *t = s; 
char bf[4], *p; 
int i; 

while (*s) 

if (*s == 'W ) 

switch (*++s) { 
case 'n': 

*t++ = '\n'; 
s + +; 
break; 
case 't': 
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*t+ + 
s++ ; 
break 
case 'r' : 

*t+ + 
s + + ； 
break 
case 'f': 

*t+ + 
s + +; 
case 's': 

*t++ =''； 
s + + ； 
break; 
case 'O': 
case '1': 
case '2': 
case '3': 
case '4': 
case '5 1 : 
case '6': 
case '7': 

p = bf; 

for (i = 0; i < 3; i++) { 

if (*s く .0 ， | | *s > '7') 
break; 

木 p++ = 木 s ++； 

} 

*p = •\0 1 ; 

*t++ = otoi(bf); 
break; 
default: 

*t ++ = 'W ; 

*t++ = *s++; 

} 

else 

*t++ = *s++; 

*t = '\0 '； 


otoi ( s ) 
char *s; 

{ 

int n = 0； 

while (*s >= ’0* && <= 1 7 1 ) 

n = 8 * n + * s ++ - ' O '； 
return ( n ); 


= '\f ； 

i 

='\r'? 

i 

= ' Xf '? 


/* bracket * / 

char * bracket ( pttn , str ) 
char * pttn , * str ; 
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grep( MS-DOS) 


int inv 


0? 


if (*++pttn =='')] 
inv =1 } 
pttn++; 

} 

if (*pttn ==']') 

*p++- = *pttn++; 
while (*pttn !=']') 
*p++ = *pttn++; 
*P = '\0 '； 

expand(str); 
if (inv) 

invert(str); 
return(++pttn); 


/* closure */ 


が define NULL 0 

typedef struct reg 一 exp { 
char *bf; 
int n, m; 

} fiXPRES; 

char 本 closure(pttn, expres) 
char *pttn; 

EXPRES *expres; 

{ 

switch (*pttn) { 
case ' { 1 : 

expres->n = atoi(++pttn); 
expres->m = 0; 
while (*pttn i= '}') 

if (*pttn++ = 1 ,• &&\ 

(expres->m = atoi(pttn)) <= 0) 
expres->m = 0400; 
if (!expres->m) 

expres->m = expres->n; 
break; 
case '*': 

expres->n = 0; 
expres->m = 0400; 
break; 
case '+': 

expres->n =1; 
expres->m = 0400; 
break; 
case '?': 

expres->n = 0; 
expres->m =1; 
break; 

} 

return(++pttn); 
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/* expand */ 


expand(s) 
char ^s; 

{ 

char c, buf[256]; 
char *p = s, *q = buf ； 


while (*p) { 

*q++ = *p++; 

if (*p == •-’ && *(p-1)<= 

c = *(p-1)+1 ； 
while (c <= *(p+1)) 
*q++ = C ++ ; 
p += 2; 

} 

} 

*q = '\0 '； 
strcpy(s , bur); 


/* invert */ 


invert(s) 

char *s; 

{ 

char buf[256], *t = buf; 
int c =1; 

while (c < 0400) 

*t++ = C ++; 

*t = '\0 '； 
squeeze(buf , s); 
strcpy(s, buf); 


/* squeeze */ 

squeeze(s , t) 
char *s, *t; 

{ 

char *p, *q; 

for (p = s; *p; p++) { 

for (q = t; *q ； q++) 
if (*p == *q) 
break; 

if (!*q) 

*S++ = *p; 

} 

*s = '\0'; 


*(P+D) { 
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grep( MS-DOS) 


/* error masage print and exit */ 

斧 include <stdio.h> 

error(si,s2) 
char *s1 , *s2; 

{ 

fprintf(stderr f si,s2); 
fprintf ( stderr ， •’ \n"); 
exit(1); 
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i § 口回回 


rpl 

文字列の置き換えとフィルタの機能 


■ Program Outline 

このコマンドは， ファイル内の文字列を交換するものです. MS - DOS のエ 
ディタにも replace コマンドがあります力、 rpl コマンドを使えばもっと簡単に 
交換することができます.また，フィルタとしても使えます. この rpl は grep 
と同じパターン.マッチング能力を持っています. 

■ Explanation 

このコマンドの書式は次の通りです. 

rpl from to 〔 < in 〕 〔〉 out 〕 

MS - DOS では，、、や’をデミリタとして使用できないので，空白やタブをパ 
ターンの中に含めることはできません.しかし，これではこのコマンドの能力 
は半減してしまうのでエスケープ.シーケンスを使えるようにしました. 

これによって復改，タブ，空白などは¥記号に続く n ， t ， s で代用できます.ま 
た，これ以外の コント ロールコードなど非印字文字も¥記号に続く1〜3桁の8 
進数で表わすことができます. 

このコマンドを使うとき注意することは，そのパターン.マッチング能力が 
強力なため，思わぬ副作用が起こる危険性があることです.安全策はファイル 
にリダイレクト出力する前に，コンソールに出力させて確認することです. 

ファイルを圧縮する方法で，簡単なためよく使われるものに，連続した空白 
をタブで置き換える方法があります.これはたとえば， 

rpl ¥ s { 8 } ¥ t <old_file > new — file 

として使えますが，この圧縮ファイルがもと通りに展開される保証はないので, 
実行しない方がよいでしょう.むしろ，タブが8文字の空白に展開されると C 
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rpl( MS-DOS) 


のプログラムソースが読みにくいので，タブを5文字くらいの空白に置き換え 
る方が有効でしょう.こういう短い BATCH ファイルを自分流に作っておくと 
よいと思います. 

rpl ¥ t ¥s¥s¥s¥s¥s <% 1 

他に有用な例としては，テキスト行の余分な空白およびタブを取り除く例や, 

rpl [¥s ¥t] +$ ¥ 0 <% 1 

プリンタに出力するとき左マージンを指定する例があります. 

rpl へ ¥ t <% 1 

次にハ。イプを使った例では，英文のテキストファイルの単語の出現頻度を表 
示させる例をあげます. 

rpl 〔 ¥s¥t.，；：〕 + ¥ n <% 1! grep— v ^$ ! sort ! uniq— c 

まず，空白，タブ，ピリオド，コロンなどを復改に置き換えます.そして， 
空白行を削除して sort を行い最後に重復回数を数えて表示しています. 

この他，いろいろな組み合わせでちょっとしたユーティリティが作れると思 
いますので，作ってみてはいかがでしょう. 

また，第2ハ。ラメータには正規式は使えません. 


■ Attention 

rpl はこの grep とほとんど同一の関数から成り立っていますので，新しくソ 
ー スフアイルを作るのは rpl の main 関数だけですみます. 

grep のソースフアイルのうち， match , c と sub . c はそのまま使い，各々コンパ 
イル後 grep の main とリンクしてください . 


ソース.フアイル名 

含まれる関数名 

rpl. c 

main (rpl のもの） -新規作成 

match, c 

grep のファイルと同内容 

sub. c 

// 
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■ Source List 


/* replace 

/* 

/* copyright (C)1984 

/* programed by y.aihara 

/* 



が include <stdio.h> 

浮 define MAXLEN 256 
浮 define MAXEXPRES 32 

typedef struct req exp { 
char *bf; 
int n, m; 

} EXPRES; 

main(argc, argv) 
int argc; 
char *argv[]; 

{ 

EXPRES expres[MAXEXPRES]; 

char line[MAXLEN], *s, *t, *match(); 

int head = 0; 

int len; 

if (argc i= 3) 

error("Usage: rpl from to", NULL); 
if (*argv[1]=='^) 
head =1; 
escape(argv[1]); 
escape(argv[2]); 

if (prepare(argv[1],expres)==-1) 

error("rpl: bad pattern", NULL); 
while (gets(line, MAXLEN, stdin)) { 


for (s=line; t=match(s,expres,&len); s+=len) 
while is < t) 

putchar(*s++); 
printf("%s", argv[2]); 
if (i*s || head) 


break; 


puts(s ); 
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wc 

ファイルの行数，単語数，文字数を表示 


■ Program Outline 

wc とは Word Count の頭文字を取ったものです.この wc は，指定したファ 
イルの行数，単語数，文字数を数えるためのプログラムです.使い方は UNIX 
とほぼ同じですが，ワイルドカードは使えません. 


■ Explanation 

ファ イ ルネームは wc として実行して下さい. コマンド ライ ン からの入力は 
次のようになります. 

wc 〔一 Iwc 〕 〔 path - name 〕 . 

— lwc はオプションで，機能は右表のよ 
うになっています.このオプションを省略 
すると，_ lwc の全部を指定したことに 
なります. 

path - name はどのファイルを調べるのか 
を指定します.この path - name を続けていくつも入力した場合は，入力したフ 
ァイルのすべてを調べます.また，これを省略すると標準入カパスになります. 

出力例 

0S9 : wc where.c sort.c wc.c 


75 

169 

1753 

where.c 

180 

411 

3961 

sort.c 

92 

198 

1855 

wc. c 


オプション 

機 肯 i 

1 

行数の指定 

w 

単語数の指定 

c 

文字数の指定 
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I source List 


Word Count 

Copyright (C)1984 
Programed by M.ICHIDA 


斧 include <stdio.h> —— 
浮 define TRUE 1 
^define FALSE 0 
^define ON 1 
^define OFF 0 

main(argc,argv} 
int argc; 
char *argv[]; 

{ 

int line,word,chr; 
line=word=chr=ON; 

++argv; 

if (--argc > 0) 
if (argv[0][0]== 


-標準入出力へッダをインクルードする 


lme=word=chr=OFF ; 
--argc; 

while [ strlen(++argv[ 0 ]) 
switch (argv[0][0]) 


- ' > 一一 - 第 1 パラメタの先頭が " 一"ならばすベてのフラグを 

OFF にする 


> 〇) 


、。ラメタが L, W, C ならばそれに応じ 
たフラグを ON とする 


case •丄： 
line = ON; 
break; 
case 'w* : 
word = ON; 
break; 
case 'c': 
chr = ON; 
break; 
default: 

printf("\n Use : Wc [-1,w,c] [<path>]\n M ); 
printf("\n Count lines f words and"); 
printf(" charactors in file\n"); 


printf(' 
printf(' 
printf(' 
exit(0); 
break; 


1:count lines\n M ); 
w:count words\n"); 
c:count charactors\n"); 


パラメタが不 
完全な場合は 
その方法を示 
唆する 


++argv; 

} 

if (argc == 0) 

count(stdin,line,word,chr); 
else 

while (argc-- > 0} 


-カウントルーチン 
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wc(0S-9) 


count(fopen(*argv,"r M ),line,word,chr); 

printf (" %s\n" r *argv++); - フアイル名を 

表示 


各ファイル名におけ 
るカウントルーチン 


count(file,lr,wf f cf) 
FILE *file; 


int 丄 f,wf,cf; 

{ 

int c,line,word,chr,flag = FALSE; 


line=word=chr=0; 
if (file == NULL) 
exit(errno); 

while ((c = getc(file)) !=EOF) 

{ 

++chr; - 文字数のカウント 

if (c == '\n') 

+ + lme; - リターンコードのカウント 

if (c == • • 
c == '\n' 
c == ， \t ， 
c == '\1' ) 
flag = FALSE? 
else if (flag == FALSE) 

{ 

++word; - ワードのカウント 

flag = TRUE; 


if (If == ON) 

printf("%7d",line>; 
if (wf == ON) 

printf("%7d" , word); 
if (cf == ON) 

printf ( ,, %7d" / chr); 


各カウンタ値の表示 
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where 

ファイルの中のデイレクトリを探し出す 


■ Program Outline 

このプログラムは， UNIX の find コマンドを 簡略化した もので， 必要な フ 
ァイルのフルパスネームを 求めてくれます. つまり， ある ファイルをアクセス 
したいときな どには，そのファイルがどのディレクト リにある のか 探す ことが 
でき ます. 


■ Explanation 

まず where というファイルネームで実行可能な状態（ロー ドするか，あるいは 
カレン ト 実行 ディ レクトリ に入れる）にしてください. 

コマンドラインからの入力は次のようになります. 

where Ldirectry-patn] file-name 

〔 directory - path 〕 とはどのディレクトリを 探す のか，ということで，ここで 
ディレクトリを 指定した場合に， そのディレクトリの 下に あるすベてのファイ 
ルを 調べます. この 〔 directory - path 〕 を 省略す ると，カレントディレクトリとな 
ります. 

file-name は目的の探したいフアイルネームです. 

このファイルネーム中に？という文字を入れた場合には，その文字はどんな 
文字でもよい，ということを意味します. 

たとえば UNI ? と UNIX でも UNI + でも UNI - でもよいということにな 
ります.このような文字をワイルドカードと呼んでいます. 

出力例 0S9:where /dl m??????? 

/dl/newBoot/MDO 
/dl/newBoot/MDI 
/dl/CMDS/Makdir 
/dl/CMDS/Mdir 
/dl/CMDS/Merge 
/dl/CMDS/Mfree 
/dl/SYS/Motd 
/dl/QEFS/SOURCE/MDO 
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where(0S-9) 


I Source List 


/* 

/* 

/* 

/* 

/* 

/* 


Where 

Copyright (C)1984 
Programed by M.ICHIDA 


*/ 

♦/ 

*/ 

*/ 

*/ 

*/ 


斧 include <stdio.h> - 

//include <direct.h> - 

^include <ctype.h> - 

浮 define MAX DIR 一 NAME 80 
^define MAX 二 NAM 巨 30 
^define DIRECTORY 0x81 


-標準入出カヘッダをインクルードする 
-デイレクトリ処理に関するヘッダをインクルードする 
-文字処理に関するヘッダをインクルード 


mam(argc,argv) 
int argc; 
char 平 argv[]; 

{ 

char dire[MAX—DIR 一 NAME],name[MAX 一 NAME]; 

struct dirent buffer; 

if ((arge > 3 ) || (arge < 2}) 

{ - 
printf ( "\n Use : Where [ <Directory-path> ]’’）； 
printf(" <file-name>\n"); 
printf("\n This command is to search"); 
printf( M く file-name〉under <Dir-path>.\n"); 
exit(0); 


コマンドラインが 
不適当ならその入 
力方法を示唆する 


strepy (dire , (arge == 3 ) ? * + +argv : ".")； - ディレクトリをセット 

strcpy(name, 不 ++argv) ;- 探したいファイノレ名をセット 

search (dire, name) ;- ディレクトリ中のファイル名の検索 

search(name , flie) 
char name[j,file[]; 

{ 

irit i ,opn; 

cjiar 氺 po, 氺 posy 

struct dirent buffer; 

if ((opn=open(name,DIRECTORY}}==-1)exit(errno); - ディレ 

pos=name + strlen(name); - ポインタ pos を name の最後に クトリファイル 

* pos ++=' / ' ； - name の 最後に •‘/” をつ け 足す のオープン 

while (read (opn ，& buf fer , 32 ) > 0 ) - バッファにデータ ( パスネーム） 

^ を読み込む 

*pos= ' \0 ' ； - name の最後にヌルコードをつけ足す 

if (buf fer .dir_name[ 0 ] == NULL) - デリートされたファ 

continue ; イノレなら次へ 

for (po=buffer.dir name ； (*po & 0x80) == 0;po + +); MSB が 1 の 
*po& = 0x7f ； - MSB をクリァする 所まで探す 

- ファイル名の最後にヌルコードをつけ足す 

strcmp(bufrer.dir name,".") == 0 

| stremp ( buffer. dir_name == 0 ) もしファイルが 

continue; " なら次へ 

s treat (name , buf fer .dir name); - ハ•スリストの追力卩 


*++po=' \0 ' ; 
if 
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it ( strcomp(buffer.dir name,file) == 0 ) — ネ & 宙したファイル名か？ 

printf ( n %s\n" , name) ; - YES なら表示 

i = access (name, DIRECTORY); - ディレクトリファイノレカ《開ける力、？ 

if (i==0) 

search(name,file) ;- 次の探したいディレクトリを探す 

} 

*--pos='\0' ; - ディレクトリ名をもとに戻す 

close(opn) ;- ファイルのクローズ 


strcomp(cl , c2) 
char *c1,*c2; 

{ 

do 

if (*c2 != '?') 

if (toupper ( *c1)i = toupper ( *c2 ) ) return(-1); 文字の上匕較：異 

while((*c1++ 1= ' \0 ' ) && (*c2 + + 1= へ〇 1 ));—どちらか なれば一 1 を返す 
return(O); が終るまでくり返し 


—— エフーメッセージ . 

MICROWARE OS -9 C v . l 丄4にはいくつかのバグや，使いにくい点があり 
ます.たとえば，浮動小数点数 ( float ) や long を printf で使うときに pffinit () 
や pflinit () を入れなければならないことなどは，マニュアルに書いてあるので 
よいとしても，関数の中で配列を大きく取ったときなど ( main も含む)，実行時 
に** stack overflow ** となってしまいます.たまには暴走してしまうことも 
ぁるょうです. 

これは，実行時に_ #5 k などのようにメモリを大きく割り当てれば使え 

ます.またコンハ。イル時に“一 m ” オプションを使って大きなメモリを指定す 
ればうまく動いてくれます.これなどは，素人にはなんで動いてくれないのか 
わからないことがあると思いますので，ぜひ改良してほしいと思います.この 
ほかには， chmod という関数が動いてくれないので困っています.あと getchar 
() を getc ( stdin ) に置き換えるはず （ stdio . h の中にそう定義されている）なの 
になぜか getc ( stdin )() とカッコがよけいについてしまいます.これは自分で 
置き換えてしまえばよいのですが .. 
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head 

ファイルを行指定で出力する 


■ Program Outline 

このプログラムは，ファイルの先頭部分を出力するためのものです.単にフ 
ァイルの最初から出力するだけではありません.ファイルの先頭から何行目を 
始めとして何行分出力するのかも指定することができます. 


■ Explanation 

フアイルネームを head として実行してください.コマンドラインからの入 
力は次のようになります. 


head 〔 + n 〕 〔一 m 〕 〔 path-name 〕 


+ n で何行目から出力するのかを指定します. 

一 m で何行分出力するかを指定します.ここで， 一* とすると最後まで出力 
するという意味になります. 

path - name で入カファイルを指定します.省略すれば標準ハ。スになります. 


例 


head +5 —20 test. 


’この場合， test . 1というファイルの先頭) 
、の5行目から20行分を出力します ) 


出力例 OS9:head -15 head.c 

/* 

/* Head 


Copyright (C)1984 
Programed by M.ICHIDA 


/^include < stdio. h > 


main(argc,argv) 
int argc; 
char *argv 丨】； 

{ 

char buffer[BUFSIZ); 

int i,line =10,head =1,toeof = 0; 
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■ Source List 


/* 

/* 

Head 

*/ 

*/ 

/* 

/* 

Copyright (C) 1984 

*/ 

V 

/* 

Programed by M.ICHIDA 

*/ 

/* 


*/ 


^include <stdio.h> - 標準入出力へッダのインクルード 

main(argc,argv) 
int argc ; 
char *argv|_ ]; 

{ 

char buffer[BUFSIZ]; 

int i,line =10,head 二 1,toeof = 0; - デフオ J レトイ直の言安定 


while (--argc > 0) 

switch ((*++argv)[0]) 

{ 

case '-': 

if (argv[0][1]=='*') _ 

{ 

toeof =1; 
break; 

} 

else 

{ 

line = atoi[^argv + 
break; 

} 

case '+ 1 : 

head = atoi け argv + 1); 
break; 
default: 

if (freopen(argv[0],"r" 
exit(errno); 

} 

for (i =1;i < head;i++) 

if (gets(buffer) == NULL) — 
exit(0); 

while (line-- > 0 | | 

toeof ==1 ) 

{ 

if (gets(buffer) == NULL) 
exit(0); 

printf("%s\n",buffer); _ 

} 

while (gets(buffer ) い NULL) —— 


パラメタが u —*” ならば toeof 
フラグを ON とする 


1); - パラメタが " 一”ならばそ 

の次の数を Line に代入する 


—— パラメタが "+” ならばその次の数を 
head に代入する 

stdin) == NULL )— パラメタがフアイ 
ル名ならばそのフ 
アイルをリードモ 
ードでオープン 

- フアイルポインタを head 個進める 


——バッファの内容を表示 
ヌルが出現するまでフアイルから読み込む 
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tail 

ファイルの最後の部分を出力 


■ Program Outline 

前述の head はフアイルの最初の部分を出力するプログラムですが，反対に 
この tail はフアイルの最後の部分を出力するためのプログラムです.この tail 
は，フアイルの後ろから何行分出力させるかを指定して使います. 


■ Explanation 

このプログラムは，ファイルネームを tail として実行します. 
コマンドラインからの入力は次のようになります. 


tail 〔一 n 〕 [path-name) 


— n によりファイルの終わりから何行分出力するかを指定します.省略する 
と， 一 n は一10に設定されます. 

path - name は入カファイルの指定です.これを省略した場合な標準入カパス 
になります. 

プログラムを作っているときなど，プログラムの最後に付けたルーチンがお 
かしいということがたまにあります.そのプログラムが数百行にもわたる場合 
には，最後のほんの数行を調べるために全リストを見るのはめんどうなもので 
す.そんなときに，この tail は役に立ちます. 

例 tail 一 5 tail , c (この場合， tail.c という ファイルの 最後の20行を出力） 

出力例 OS9:tail-5 tail.c 

} 

for ( l= 0;i < = tail;i + +) 
printf("%s\n n ,stringfi]); 
fclose(infile); 
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■ Source List 



Copyright (C)1984 
Programed by M.ICHIDA 


Tail 



存 include <stdio.h> 

^define MEMERR 207 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

char **string; 
char buffer[BUFSIZ]; 
int i,len,tail=10; 

FILE *infile = stdin; 

++argv; 

if (--argc != 0) 

if (argv[0][0] ニニ ) 

{ 

tail=atoi(*argv++ + 1); 

--argc; 

} 

if (argc != 0) 

if ((infile = fopen(argv[0],"r")) == NULL) 
exit(errno ); 

if ((string = (char 木 *) calloc(tail f sizeof(char *))) == NULL) 
exit(MEMERR )； 

--tail; 

for (i = 0;i <= tail;i++) 

{ 

if ((string[i] = malloc(1))==NULL) 
exit(MEMERR); 
string!i][0 ] = '\0 '; 

} 

while (fgets(buffer,BUFSIZ,infile) != NULL) 

{ 

free(string[0]); 
for (i = 0;i < tail;i++) 
string[i] = string [i+1]; 
len =-strlen(buffer); 
buffer[len-1]='\0'; 

if ((string[tail]=malloc(len)) == NULL) 
exit(MEMERR); 

strcpy(stringitail],buffer); 

} 

for (i = 0;i < = tail；i + +) 
printf("%s\n M ,string[i]); 
fclose(inrlie); 
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sort 

行単位や フイール ド別に自在な ソーティ ング 


■ Program Outline 

これはファイルの内容を行単位でソート（並び換える）するコマンドです. 
UNIX の同名のコマンドに可能なかぎり近付けたものですが，オプションなど 
でいくつかサポートされていないものがあります. 


■ Explanation 

このプログラムは， sort というファイルネームで実行します. コマンド ライ 
ンからの入力は次のようになります. 


sort [― frb] 〔 path-name 〕 L + n 〕 l — o output-path 〕 


-frb はオプシヨンです. 

これらのオプシヨンは一 fr 
や一 rb などのように組み合 
わせて使うことができます. 

path-name は sort するフ 
アイルのハ。スネームで，省略すると標準入カハ。スからの入力を sor t します. 

+ n は sort するときにどのフイールドからを比較の対象にするのかを指定し 
ます.フイールドとは1つ以上のスペースまたはタブで区切られたものです. 

例 abcdef ^ mn 

第〇 フイ- ド第1 フイ-ルド 第2 フィ-ルド 第3 フィ-ルド 


オプシヨン 

機 肯 i 

f 

大文字と小文字の区別をしない 

r 

並び換える順を逆にする 

b 

ブランク文字 （スペース， タブ等）を無視す る 


ここで，たとえばオプション + n を+ 2とすると，上の例において第2フィ 
ールドつまり k 以降を比較の対象とします.オプション + n を指定しない場合 
は， + n は0にセットされ，ファイルの最初（第0フィールド）からが比較の 
対象になります. 
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— 〇 output-path は， ソ ートしたファイルを出力したいときに，そのファイ 
ル名を指定します.そのファイル名を省略すると標準出カパスに出力します. 

例 一 〇 test. 1 

また， sort — 〇 test. 1 などは， sort〉test. 1 のようにリダイレクトしたも 
のと同じです. 

次に， sort と他のコマンドをパイプラインした例を示します. 

例 dir e ! head + 3 — * ! sort + 6 — f(ABC 順で並び換え） 

dir e ! head 一 3 一 * ! sort +1 (ファイルを古い順に並び換え） 

ソー トするサンプルテキスト 

0S9 : list test 
SEIKO MATSUDA 
AKINA NAKAMORI 
KYOKO KOIZUMI 
NAOKO KAWAI 
HIDEMI ISHIKAWA 
HIROKO YAKUSHIMARU 
IYO MATSUMOTO 
YOSHIE KASHIWABARA 
TOMOYO HARADA 
YOSHIMI IWASAKI 


出力例 （ABC 順） 

OS9 : sort test 
AKINA NAKAMORI 
HIDEMI ISHIKAWA 
HIROKO YAKUSHIMARU 
IYO MATSUMOTO 
KYOKO KOIZUMI 
NAOKO KAWAI 
SEIKO MATSUDA 
TOMOYO HARADA 
YOSHIE KASHIWABARA 
YOSHIMI IWASAKI 


出力例(逆 ABC 順） 

OS9:sort -r test 
YOSHIMI IWASAKI 
YOSHIE KASHIWABARA 
TOMOYO HARADA 
SEIKO MATSUDA 
NAOKO KAWAI 
KYOKO KOIZUMI 
IYO MATSUMOTO 
HIROKO YAKUSHIMARU 
HIDEMI ISHIKAWA 
AKINA NAKAMORI 
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sort ( OS -9) 


I Source List 


/* 

/* 

/* 

/* 

/* 

/* 


Sort 

Copyright (C)1984 
Programed by M.ICHIDA 


^include <stdio.h> 

"include <ctype.h> 

浮 define MAXLINES 1000 
浮 define TOOLONG 207 
^define ON 1 
浮 define OFF 0 

char *1ineptr[MAXLINES]; 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

int rev=1,strp=0,lines,blankskip = OFF, 

strcmp(),strcomp(),(*scmp)() = strcmp; 

FILE *outfile = stdout,*infile = stdin; 
extern char *lineptr[]; 

while (--argc > 0) 

{ 

switch ((*++argv)[0]) 

{ 

case 1 +': 

strp = atoi (*argv + 1).; 
break; 
case '-': 

while(argv[0][1]i= '\0' && 

argv[0][1]•='' ) 

switch ((++argv[0])[0]) 

{ 

case 'r': 
rev =-1; 
break; 
case 'o': 

outfile = fopen(^++argv,"w"); 
break; 
case 'b': 

blankskip = ON; 
break; 
case 'f': 

scmp = strcomp; 
break; 
default : 

printf("\n Use: Sort [く path〉] [-f,r,b]"); 

printf(" [+n] [-o <output-path>]\n"); 

printf("\n This command is to sort <path>") : 
printf ( " or < std-input>,. \n"); 
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printf(" -f : prohibit to distinguish"); 

printf(" upper"); 

printf(" and lower case\n"); 

printf(" -r:reverse sorting sequence\n"); 

printf(" -b:skip blanks and tabs\n"); 

printf(" +n:set sorting start field"); 

printf(" (n:digit)\n M ); 

printf( M -o:specify output path\n"); 

exit(0); 

break; 


break; 

default: 

if ((infile = fopen(argv[0] , "r")) 
exit(errno); 
break; 


NULL )• 


if ((lines = readlines(infile)) > = 0 ) 

{ 

sort(lines,rev,strp,blankskip,scmp); 
writelines(lineptr,lines,outfile); 

} 

else 

exit(TOOLONG )； 


readlines(inrile) 

FILE *infile; 

{ 

extern char *lineptr[]; 
int nlines = 0; 
char *p,line[BUFSIZ]; 
unsigned len; 

while は gets(line,BUFSIZ,infile) i= NULL) 
{ 

len=strlen(line); 
if (nlines >= MAXLINES) 
return(-1); 

else if ((p = malloc(len)) == NULL) 
return(-1); 
else 
{ 

line[len-1]=•\0 1 ; 
strcpy(p,line); 
lineptr[nlines++] = p; 


return(nlines); 


sort(n,rev , strp,skip,scmp) 
int n,rev,strp,skip,(*scmp)(); 
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extern char *lineptr[]; 
int gap,i,j; 

char *temp,*pointa,*pointb,*fieldset(),*blankskip(); 

for (gap = n/2;gap > 0;gap / =2) 
for (i = gap;i < rt;i++) 

for (j = i- gap;j >= 0;j 一二 gap) 

{ 

pointa = fieldset(lineptr[j],strp); 
pointb = fieldset(lineptr[j +gap],strp); 
if (skip == ON) 

{ 

pointa = blankskip(pointa); 
pointb = blankskip(pointb); 

} 

if (((*scmp)(pointa,pointb) * rev) <= 0} 
break; 

temp =lineptr[j]; 
lineptr[j]=lineptr[j+gap]; 
lineptr[j+gap] = temp; 


writelines(ptr,nlines,outfile) 
char *ptr[]; 
int nlines; 

FILE *outfile; 

{ 

while (——nlines > = 0} 

fprintf(outfile,"%s\n",*ptr++); 


char *fieldset(point,fid) 
int fid; 
char *point; 

{ 

int i; 

for (i = 0;i < fld;i++) 

{ 

if (*point == ' •) 

while(*point++ =='') 

while(*point != ' 1 && 

木 point != '\t' && 

*point i= •\0 1 ) 

point++; 

} 

return(point); 


char *blankskip(point) 
char *point; 

{ 

while ( ホ point =='' 

木 point 二 ='\t' 
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++point ; 
return(point) ; 


strcomp(si,s2) 
char *s1,*s2; 

{ 

int i; 

char cl,c2; 

do 

{ 

cl=toupper(*s1);c2=toupper ( 木 s2 )7 
if (cl!= c2) 

return((cl < c2) ?-1 : 1)? 

while ((*s1++ != 丨 \0 丨 ） && (*s2++ != ’\0')); 
return(0); 
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菅口 ！ 1 


screen _ 

キャラクタのハードコピーコマンド （ F-BASIC Ver .3.0 に相当） 


■ Program Outline 

この screen は，画面に表示されているキャラクタを，プリンタ等にハード 
コピーするための ブロ グラムです. 

F-BASIC の Version 3.0 までの HARDC 0 に相当するものです.ハードコ 
ピーの 取れる範囲は，キャラクタで 80 X 25 の大きさ（フルサイズ）のウインドゥ 
に限られ， Version 4.0 以上のコピー範囲の指定の機能などはありません•そ 
の代わりに， OS -9 のリダイレクト機能を生かして，プリンタだけでなくディ 
スクファイルにも出力させることができます. 

■ Explanation 

ファイルネームは screen です. 

screen にはオプションはありません•その代わり，デイスクファイル等に画 
面内容を出力できるなど，画面内容の出カデバイスを内部で固定せずに，標準 
出カノ、。スに出力するようになっています.普通，標準出カハ°スは /Term ( CRT ) 
に対して開かれていますから，このままではコピーした画面内容はまた画面に 
対して出力されて，いたずらに画面を乱すだけです.そこで実際に使用すると 
きには，標準出力を画面内容を出力させたいデバイス，ディスクファイルにリ 
ダイレクトさせて使うことになります. 

コマンドラインの書式は次のようになります. 

screen >パスリスト 

パスリストには I / O デ バイスのハ。スリスト， デ イスクファイルのハ。スリスト 

が入ります.たとえば，プリンタに画面データを出力させようとした場合（通 
常のハードコピー） には， FM -7 の OS -9 プリン タのパス リストは /P ですから， 


screen > / P 
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と コマン ドを投入し ます . 

現在のデータディレクトリ上の crt — copy というディスクファイルに出力さ 
せたい場合には， 

screen ， crt —copy 

となります. 

以下に出力例を示します.この出力例は，ソースプログラム screen . c を ccl 
でコンパイルしたあとで，作成されたオブジェクトに対して， Ident コマンド 
を使用した画面をプリンタに出力させたものです. 

■ Attention 

プログラムは簡単なものです . main 
のみで成り立っています. FM -7 (FM 
シリーズ）の OS -9 に用意されたテ'一夕 
の入出力でサブシステムを コン トロー 
ルするという方法で，サブシステムコ 
マンド Get Character Block 1 により 
画面1行分のデータを得て、それを必 
要な部分だけ出力しています. 

サブシステムを コント ロールするためのデータを送るパスとして，パス番号 
0=標準入カ ハ。 スを使用しています. 一般に， サブシステムを コント ロー ルす 
るためのデータは，標準出カパスに送られる （ BASIC 09 用のグラフィックコマ 
ンドなどはこのようになっています ） のですが，標準出カパスを内容の出力先 
のリダイレクト用にするためにこうしました.したがって，標準入力をリダイ 
レクトすることはできません. 

データを送り出すための構造体変数，受け取るための構造体変数が外部変数 
として宣言されていますが，これは関数 main の中身を少しでも短くしようと 
しただけのことで他意はありません.また，変数のすべてに direct という宣言 
がなされていますが，これはマイクロウェア社の C にだけある特別のクラスで 
あ.り，変数がダイレクトページ内に置かれることによりアクセスが速くなるの 
です . すべての変数を自動変数にしても，まったく同様の動作をします. 


出力例 

0S9 : ccl screen.c 

ccl version 1.1.4 

Copyright 1983 Microware 

'screen.c' 

c.prep: 

c.passl : 

c.pass2 : 

c.opt: 

c.asm: 

c.link : 

0S9:ident screen -xs 

1 $11 $523F43 . screen 

0S9 : screen >/P 
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■ Source List 


/* 

/* Screen 

/* 

/* Copyright (C)1984 

/* Programed by H.Hatayama 

^include く stdio.h> 

浮 define DATSIZ 80 


direct struct subpack 
{ 

/ * os9 sub-packet head */ 
char head, sw, insz ,outsz; 

/* FM subsystem command */ 
char daml,dam2, cmdcd, xl,yl,x2, y2; 

/* os9 sub-packet end */ 
char etx; 

} os9rcb = { 

0x14,0x0f,DATSIZ+4,7, 

0,0,6,0,0,79,0, 

3 

}; /* for send data to sub */ 

direct struct subin 

{ 

char head2,sw2,insz2,outsz2; 

char erred,cntf,dammy,dtsz,buff[DATSIZ]; 

char etx2; 

} subdata; /* for get data from sub */ 


*/ 

*/ 



*/ 

*/ 


/* */ 

/ * main routine of screen */ 

/* */ 

main() 

{ 

static direct int x,y,data no; 
static direct int stdin 一 =0,stdout 一 =1; 
static direct char line[80]; 

for ( y=0; y <=24 ; y++) { 


/* Set subreb */ 
os9rcb.yl=os9rcb.y^=y ； 
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/* Get character data of 1 line pointed by y */ 

data no = write( stdin ,&os9rcb, sizeof (struct subpack.)); 

data no = read(stdin_,&subdata,sizeof(struct subin)); 

/* make screen image line until find NULL(00) in buffer */ 
for(x=0; 

(line[x] = subdata.buff[x]) '= NULL && x<=79?x++); 

printf( n %s\n n ,line); 


- エフーメツセージ . 

MICROWARE OS -9 C v .1.1. 4 のヘッダファイルはなかなかよくできている 
ので便利なのですが，中には使い方のわからないものなどがあります.たとえ 
ば 〈 direct . h > などは，最初の構造体 dirent はディレクトリファイルのデータ 
の形を表しているのはわかりますが，その他のものは C の上からどのようにア 
クセスしたら手に入れることができるか，データの形がどのように定義されて 
いるのかわからないものがあります.詳しいことを書いてほしかったと思います. 

ところで，ヘッダ ファイル にも八グがありました.それは く sgstat . h > とい 
うヘッダで， getstat ， setstat という関数で使われるデータの形を定義していま 
すが，このうち RBF タイプ用の struct の定義が瞹眛です.それは， struct のメ 
ンバーの sg _ salloc と sg _ att の間に4バイト分の未使用領域があるにもかか 
わらず，それを忘れているのです.ですから，この間に sg _ null [4] とでもつ 
けておいて下さい.このため ファイルの アトリビュートが読みたくても読めな 
くて苦しんだことがあるのでぜひみなさんは注意して下さい.「自分のプログ 
ラムが動かないから コンパイ ラにバグがある」という考え方は危険ですので， 
まず自分を疑うようにしましょう. 
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つベ 1 回 i 口 D 


グラフィック•パッケージ 

0 S -9/ MICR 0 WARE C 上で使用可能 


—般に，8ビット CPU で動作する 0 S は，汎用性を重視する目的で，画面表 
示はキャラクタ単位に限定している場合が大半です （ CP / M や FLEX など）. 

その 中にあって， OS -9 は ， FM シリーズ 用に限り，グラフィックをサ ポー 
卜しており， エスケープシーケンス もどきのキャラクタ列を コンソールに 送る 
だけで実現できます.送出するパラメータは，通常アセンブラレベルで共有 R 
AM を通してサブシステムに送出するデータと同じものなので，こうした事 
例を経験したことのない者にとっては，すぐ使えるというものではありません 
が，いかなる言語からでもアセンブラを使うことなく応用できるという点は注 
目に値:します. 

ここでは， OS -9 上で走る MICRO WARE C においてグラフィック処理を試みて 
みました （リスト 1). 具体的には，コンソールに送るサブシステムコマンドを 
細かくかみくだいて，たとえば LINE なら，座標値等のハ。ラメータを引数とす 
る line () という関数を用意しました. 

これにより，ことに C 言語上におけるグラフィックの扱いは非常に容易なも 
のとなります. 

これまで，グラフィック機能を持ち合わせたコンパイラの多くは，数値計算 
には整数しか使えなかったため，特に 3 D グラフィックを実現する場合には， 
座標計算がネックとなり， BASIC インタプリタを使うことがほとんどでした 
が，これに三角関数等の未サポート関数などを追加することによって，より高 
度なグラフィックが楽しめることでしょう. 

■分割コンパイル 

OS -9 および MICROWARE C コンパイラは，どちらも多くのメモリを使うた 
めに，大きなプログラムを一度にコンハ。イルするのはむずかしいことです•ひ 
とつの方法としては， OS -9 のブート時のモジュールを最小限におさえ，でき 
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るだけ多くの作業領域を確保することが考えられますが，こうした方法に触れ 
ることは本書の目的ではないので，他の参考書を読んでください. 

ここに紹介したグラフィックハ。ッケージは，200行程度のものですが，これだ 
けでも比較的大きなものです.よって，メインプログラムから呼ぶ場合も i nc l u 
de するのではなく， 分割 コンパイルしておいてあとでリンクするという 手法を 
とつた方が安全です.具体的な使い方については後で述べます. 


■各関数の仕様と使い方 

cls() 引数なし（画面消去） 

プログラムを見てもわかるように，ただ単に write 関数を使って，コントロ 
ールコード $0 C をコンソールに送っているだけです.当初，サブシステムコマ 
ン ドの 「 ERASE 」 をパッチしてみましたが， ウィン ドゥを複数にしたとき，い 
ずれかの画面において，これが実行されるとすべてが消去されてしまうという 
トラブルが起こったために，この方法に変更しました. 

さらに，なぜ putchar ( ) 関数を使わなかったかというと，これはただ単に 
く stdio . h > を include したくなかったというだけの理由です. 

nline (a, b, c, d, fnc, col, bxf) ( 直線 ) 

直線を描く関数です.座標系は， BASIC におけるそれと全く同じで，640 X 
200である.もちろん，色指定 （ col : 〇〜7 ) や機能 ( fnc : 〇〜4 )，ボックス （bxf 
: 0〜3 ) も指定できます が， 始点，終点の座標 （ a ， d ) — ( c ， d ) は，必ず画面 
内の点でなければなりません.仮に，はみ出した点を引数として与えても，負 
数の場合は0， 639(199) を超えた場合は 639(199) として与えられたものとして 
処理します.他の パラメータが 範囲外の場合も，特定の値に変更されます.各 
ハ。 ラメータは 次の よう な意味をもちます. 

色指定 col : 〇 〜7 
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グラフィック.パッケージ ( OS -9) 

line(p, q, r, s, fnc, col, bxf) ( クリッピング機能付直線） 

先の line () 関数では，画面からはみ出た部分については無理矢理範囲内に 
おさめてしまいました.あらかじめ範囲内にしか表示され得ないことがわかっ 
ているような場合には，これでも構いませんが，こと 3 D グラフィックや入力 
データによるグラフ書きなどの場合には，いつどんなときに範囲外となるかも 
しれません.クリッピングというのは，ワールド座標系において仮想的に直線 
を引いたとき，ウィンドゥ内に見えるはずの直線を，範囲内の2点の座標で示 
すことです. 

本プログラムでは，きわめて算術的にこの作業を行っているために，与えら 
れた2点がどちらも範囲内にある場合でも IF 文を何度も通るので必ずしもよ 
いプログラムとはいえませんが，アルゴリズムには誤りはないので期待通りの 
動作はします. 

なお，座標および八ラメータの当え方は nline () 関数と全く同じです. 

クリッビング 




circle^xx, y, rx, ry, fnc, col) ( 円） 

円の描き方には何通りかのやり方がありますが，ここでは32角形近似による 
方法をとっています. F - BASIC における円の描画は64角形近似ですから，若 
干見た目はよくありませんが， OS の関係上，64角形にすると速度が相当遅く 
なるので32角形としました.用意する三角関数データも半分ですみます. 

プログラムはいたって簡単で，単位円のデータに横半径 （ rx ) および縦半径 
( ry ) を乗じて中心座標 ( x ， y ) に加えているだけです.また，正負を変えるだけで， 
点対称な座標が得られることから実際の描画は右左から上下へとのびていきま 
す.色 ( col ) および機能 ( fnc ) については， nline () の場合と全く同じです.なお， 
プログラム中，4つの line () を，すべて nline () に直せば， F - BASIC の円と 
同じに範囲外の部分がつぶれて表示されます. 
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pset(x, y, rnc, col) ( 点） 

指定座標 （ x , y ) に点を描く関数です.機能 ( fnc ) および色 ( col ) につい 
ては， nline () と全く同じです. 

paint(x, y, col, be) ( ペイント） 

BASIC における PAINT とほとんど同じです.が境界色 ( be ) の指定は混乱 
を避けるために1色としました. 

symbol(x, y, fnc, col, arg, wd, hi, str) ( シンボル） 

BASIC における SYMBOL と全く同じです.文字の左上の座標を （ x , y ), 
向き （ arg ) は〇〜3，拡大幅 ( wd ) および拡大高 （ hi ) はそれぞれ1~255で指 
定します.文字列は，ポインタとして考えるので，次のようにします. 

char * S ; 

S = ' 、 0S-9" ; 

symbol (320, 100, 0, 7, 0, 2, 2, S); 


■コンパイルの仕方とサンプルプログラム 

グラフィック•パッケージはこれだけでは動きません.実際に動作させるため 
には， main () を含むファイルが別に必要です. 

ここでは，グラフィックパッケージ 中の関数を すべて 使う簡単な サンプルプ 
ログラムを示します（リスト 2). 

MICROWARE C では，複数のファイルを一括してコンパイルできるので（分割 
コンパイルしてリンクするという作業を自動的にする），ここではグラフィック 
•パッケージの ファイル名を graph , c ， サンプルのファイル名を sample , c とで 
もして，次のように， 

eel sample, c graph, c y] 

とするだけでコンパイルされます.なお，これに先立ち， eel のあるディレク 
トリを実行ディレクトリに，ソースファイルのあるディレクトリをワーキング 
ディレクトにしておかなければなりません. 

エラーな しに コンパイルが 終了すれば，オブジェクトは eel の ある ディ レク 
トリにできます. ファイル 名は， main のある ファイル 名から拡張子 （. c ) を取 
り除いたものになりますから， コンパイル 終了直後なら，たとえば， 
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sample 1 — 1 ] 

で実行されます. 

■三角関数の追加とリサー ジユ図形 

3 D グラフィック等を実現するためにどうしても必要なのが，三角関数です. 
しかし， MICROWARE C では，三角関数はサポートしておらず，ユーザが独自に 
用意してやる必要があります.ここでは三角関数の例およびこれを応用したリ 
サージ ュ図形の プロ グラムを示すことにします. 

三角関数の作り方はいろいろありますが，多くの場合，テーブルを用意して 
補間します.テーブルを大きくとれば補間は簡単なもので済むので，プロダラ 
ムは楽ですが，オブジェクトは大きくなります.逆にテーブルを小さくすると， 
補間プログラムは複雑になるかわりにオブジヱクトは小さくなります. 

ここでは， cos () を degree で0°〜90°までテーブルとして用意し，補間は一 
次としましたので，プログラム的には前者の方法に近いといえます.補間が単 
純だけに速度は速くなっています.プログラムを リスト 3に示します. 

テーブルは dcos () という関数を通してアクセスされ， radian で与えられ 
る引数から三角関数を与えるのは cos () と sin () で， sin () はただ単に cos 
() の位相を ； r /2 ずらしているだけです. 

tan () は， sin ( )/ cos () で与えられますが， cos ( )—0 のとき sin ()— 
1， tan ( ) = 〇〇となるので， | cos ( ) | く IX 1〇 _37 のときは tan () は 1 X 10 37 ま 
たは一 IX 1〇 37 を与えるようにしています. 

リサージュ図形のプログラムを リスト 4 ■に示します. 

このプログラムでは グラフィック•ハ。 

ッケージの line () 関数と，三角関数 
パッケージの sin () 関数を使うので， 

どちらも使用します.コンパイルする 
ときは，リサージユのプログラムのフ 
アイル名を sample 2 . c ， 三角関数のフ 
アイル名を set . c とでもして 

cc 1 sample 2. c graph, c sct.cidJ 

とします. 
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■ 0S-9 上でサブシステムを扱う方法 

最初に述べたように， OS -9 上からサブシステムを扱うには，コンソールへの 
キャラクタ送出だけで結構です.ここでは，そのキャラクタ列（コマンドハ。ケ 
ットと呼ばれます）のフォーマットについて解説します. 

コマンドパケットは，ヘッダ 部， コマンド 列， エンドコードの3つから 成り 
立ちます.ヘッダ部は4パ'イトで，その先頭バイトは $14( DC 4) とし，コマン 
ドハ。ケットの宣言をします. 

ヘッダ 

第0バイト $14 ( DC 4) 

第1バイト $ 0 E ( SO ) または $0 F ( SI ) 

• $ OE ( SO ) は，サブシステムへのコマンドの送出のみの場合 （ subout ) 

• $ 0 F ( SI ) は，復帰情報を必要とする場合 （ subin ) 

の選択をします. 

第 2 バイト subin 時の復帰情報のバイト数を示します. 

第3パ'イト subout 時の送出バイト数を示します. 


サブシステム コマン ド例 

共有 RAM に書き込むデータの先頭から必要なバイト数のみ与えます. 
ここで与えるバイト数は，ヘッダの第3バイトの値と一致しなければな 
りません. 

エンドコード 

コマンドハ。ケットの最後を宣言するためのもので，$03 ( EXT ) を1バイ 
卜与えます. 

次に，この方法による例として，コンソールの初期化プログラムを示します 

(リスト5 )• 

C 言語でプログラムするときは，ハ。ラメータの与え方を簡略化するために， 
構造体を使うのが便利です.さらに，実際にコマンドパケットをコンソールに 
送るときは ， write () 関数を使います. char () を使うと，出カバッファを通る 
ため，トラブルを生ずることがあります. 

このプログラムでは， コンソールのカラーモー ドと グリーンモー ドを切り換 
えるためのもので，たとえば， console , c というフアイル名でコンノ、。イルした場 
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合次のようになります. 


グラフイック•パッケージ （0 S -9) 


console c 0 (カラーモード） 
console g 0 (グリ—ンモ—ド） 

グリーンモードはカラーモードに比べて，表示やスクロールが速いので，ス 
クリーン エディ タを使用したりするときには便利です. 

なお，このプログラムでは，「画面消去せずに初期化する」機能を利用するこ 
とによって， PF キーの内容表示を画面の最上段に置くなどということをして 
いますが，ブログラムをよく読めばどうなっているかわかることと思います. 

パレツトの切り換え 

グリーンモードにしたときでも，画面には文字を白で出したい場合がありま 
す.そこで，パレットの切り換えをするプログラムを作ってみました （リスト 6). 

プログラム中， Palette ( oc , nc ) という関数は，直接 I /〇 をアクセスするこ 
とで，パレットコード （ oc ) にカラーコード （ nc ) を割り当てています. main () 
は，コマンド入力時のハ。ラメータ変換をするためのものです.ファイル名を， 
palette , c としてコンパイルしたときは， 

palette 4, > (コンマは空白でもよい） 

で，パレットの 4 が白になります. 

なお，当然のことながら，このプログラムは， FM -7， NEW 7, 77でしか意味 
をもちません. 
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List 

1 

Graphic Package for FM-7/8 
by T.KANO '84.9.17 


cls() 


char s[1>; 
s[0] = 0x0c ； 
write(1,s,1); 


nline(a,b,c,d,fnc,col,bxf) 
int a,b,c,d,fnc f col,bxf; 

{ 

static struct { 
char head[9]; 
int point[4]; 
char tail[2]; 

} subline = { 

{0x14,0x0e,0,14, 

0, 0, 0x15, 1 , 0}, 
{0, 0, 0, 0}, 

{0, 3} 

}； 


a = 
b = 
c = 
d = 
f nc 
col 
bxf 


(a<0) ? 0 : 
(b<0) ? 0 : 
(c<0) ? 0 : 
(d く 0) ? 0 : 
(fnc < 0 I I 


((a>639) 
((b>199) 
( (0639) 
((d>199) 
fnc>4) ? 


(col<0 || col>7) ? 
(bxf く , 0 | | bxf >2) ? 


subline. 
subline. 
subline, 
subline. 
subline, 
subline. 
subline. 


point[0] = a 
point[1]=b 
point[2] = c 
point[3] = d 
head[8] = fnc 
head[7] = col 
tail[0] = bxf 


write(1 ， & subline,19); 


^define swap(x,y) {float dumy; dumy=x; x=y; y=dumy;} 

lina(p,q,r,s,fnc,col,bxf) 
int p,q,r,s,fnc,col,bxf; 

{ 

float a,b f c,d; 
a = p ； 


e 卜 
urc ス 

OL リ ** * * 

5//// 


abed 

.. 1 f 

n 0 X 
9 9 9 9 f c b 
3 9 3 9 
6161::: 

? ? ? ? o 7 o 


/ /// 
* * * * 
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.0 && d>=0.0) { 

0.0 && b i= d) { 
a + (c - a)*(-b)/(d - b); 

0 . 0 ; 

199.0 && b != d) { 

a + (c - a)*(199.0 - b)/(d - b); 

199.0; 


if(b く =199 
if(b < 
a = 
b = 
} 

if(d > 


static float 
0.000000 , 0 . 
0.382683 , 0 . 
0.707107 , 0. 
0.92388 0 , 0 . 


a; 

b ； 

c ； 

d ? 


nline(p,q,r,s,fnc,col,bxf); 


circle(x,y,rx,ry,fnc,col) 
int x,y,rx,ry,fnc,col; 


={ 

/ 

9 

\ 1.000000 }: 


if(a > c) { 
swap(a,c); 
swap(b,d); 

} 

if(a<=639.0 && c>=0.0) { 
if(a く 0.0 && a != c) { 

b = b + (d - b)*(-a)/(c - a); 
a = 0.0; 

} 

if (c > 639.0 && a i=c) { 

d = b + (d - b)*(639.0 - a)/(c - a); 
c = 639.0; 


if(b > d) { 
swap(a,c); 
swap(b,d}; 


int i,x0,y0,x1,y1; 

xO = rx? 
yO = 0; 


II II 

c d } 


] o o o 5 
9 9 7 7 8 
[0547 
n 5 51o 
.19 5 3 8 
s 15 8 9 


q- r s 

II II II 

bed 


for(i =1;i く 9; i++ ){ 
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xl = rx * sin[8-i]; 
yl=ry * sin[i]; 

line(x+xO,y+yO , x+xl,y+yl,fnc,col,0) 
line(x+xO,y-yO , x+xl f y-yl,fnc,col ， 0) 
line(x-xO,y+yO,x-xl,y+yl,fnc , col,0) 
line(x-xO,y-yO,x-x1,y-y1 , fnc,col , 0) 
xO = xl; 
yO = yl; 


pset(x,y,fnc,col> 
int x,y,fnc f col; 

{ 

if(x>=0 && x<=639 && y>=0 && y<=199){ 
static struct { 
char head[8]; 
int point [2]; 
char tail[3]; 

} subpset = { 

{0x14, 0x0e f 0,10, 

0, 0, 0x17, 1}, 

{0, 0}, 

{0, 0, 3} 

}； 

col=(col<0 || col>7) ? 7 : col; 

fnc = (fnc<0 [| fnc>4) ? 0 : fnc; 

subpset.point[0] = x; 

subpset.pointl1]=y; 

subpset.tail[0] = col; 

subpset.tail[1]=fnc; 

write(1,&subpset,15); 


paint(x,y,col,be) 
int x,y,col,bc; 

{ 

if(x>=0 && x<=639 && y>=0 && y<=199 ){ 
static struct { 
char head[7]; 
int point [2]; 
char tail[4]; 

} subpaint = { 

{0x14, OxOe, 0,10, 

0 , 0 , 0x18 } t 
{0, 0}, 

{0,1,0,3} 

}； 

subpaint.point[0] = x; 
subpaint.point[1]=y; 
subpaint.tail[0] = (col く 0 || col >7 ) 


フ： col; 
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subpaint.tail[2] 

=(be >7 || be く 0 ) ? col : be; 

write(1,&subpaint,15}; 


symbol(x,y,fnc,col,arg,wd,hi,str) 
int x f y,fnc,col,arg f wd,hi; 
char str[]; 

{ 

int i; 

for(i=0;i<=80 && str[i] !='\0' ； i++); 

if(i!=0 && x>=0 && x く =639 && y>=0 && y< 
static struct { 
char head[4]; 
char cmd[8]; 
int point[2]; 
char ent[1]; 

} subsybl={ 

{0x14, OxOe, 0, 0}, 

{0, 0, 0x19, 0, 0, 0, 0, 0}, 

{0, 0}, 

0 
}； 

char tail[1]; 

subsybl.head[3]=13 + i; 
subsybl.cmd[3] = col & 0x07; 
subsybl.cmd[4] = (fnc< 0 || fnc>5) ? 
subsybl.cmd[5] = arg & 0x03 ； 
subsybl.cmd[6] = hi & Oxff; 
subsybl.cmd[7] = hi & Oxff; 
subsybl.point[0] = x ； 
subsybl.point[1J = y; 
subsybl.ent[0] = i ; 

write(1,&subsybl,17); 
write(1 , str,i); 
tail[0]= 3; 
write(1,tail,1); 


リスト 2 

/* */ 

/* Grapic Package test program */ 

/* */ 

/* by T.KANO '84.9.16 */ 

main() 

{ 

while(1){ 

circletest(); 
painttest(); 


199) { 


: f nc? 
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symboltest() ; 


circlerest() 

{ 

int y,ry; 
els(); 

for(ry=10;ry< = 200;ry+ = 10) 

circle(320,100,ry*2,ry,0 f 7); 
cls (); 

for(y=50;y < =1 50;y+ = 10) 

circle(y*4,y,200,100,0,7 ); 

} 

painttest() 

{ 

int i; 

c c ( ) • 

line(100, 50,250,100,0,1); 
line(100,1 20,250,190,0, 2,1); 
line(300, 50,350,100,0,3,1 )； 
line(300,1 20,350,190,0, 4,1); 

line(400, 50,600,100,0,5,1); 
line(400,120,600,190,0,6,1}; 

for(i=1;i<8;i++){ 

line(200, 70 f 500,170,0 f i,1 )； 
paint(320 f 110,i,i); 


for(i=-100;i<=100;i+=2){ 
pset(320+i,100+i,0,2); 
pset(320-i, 100 + i,0,2); 
pset(320 + i, 100 -i,0,5); 
pset(320-i,100-i,0,5); 


symboltest() 

{ 

int i; 
char *s; 

cls()? 
s = "OS-9"; 
for(i=0;i く 14;i++) 

symbol(i*10,i*10, 0,(i%7)+1,0,1+i/4,1+i/4,s); 

for(i=0;i<14;i++) 

symbol(i* 10,199 -i*10, 0,(i%7)+1,1,1+i/4,1+i/4,s>; 

for(i=0;i<14;i++) 

symbol(639-i*10,199-i*10,0,(i%7}+1,2,1+i/4,1+i/4,s>; 
for(i=0;i<14;i++) 

symbol(639-i*10,i*10, 0,(i%7)+1,3,1+i/4,1+i/4,s}; 
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*= 57.2958 ； /* 1 

= r j 

=dcos(a): 


return( c + ( dcos(d+1) 

} 

float sin(r) 
float r; 


return( sign * dat[ 90 - d ]); 


float cos(r) 
float r; 

{ float dcos() ,c; 
int d; 


90 ) ? -sign : sign; 
90 ) ?180 - d : d; 


sin() cos() tan() Package 
by T.KANO '84.9.13 


リスト 3 


80/pai */ 

-c ) * ( r - d )) : 


float dcos(d) 
int d; 

{ 

static float dat[91]= 

{ 0, 0.0174 52, 0.0349 00, 0.0523 36, 0.0697 57, 

0.0871 56, 0.1045 28, 0.121869, 0.1391 73, 0.156434, 
0.173648, 0.1908 09, 0.2079 12, 0.224951 , 0.2419 22, 
0.2588 19, 0.2756 37, 0.2923 72, 0.3090 17, 0.3255 68, 
0.3420 20, 0.3583 68, 0.3746 07, 0.390731 , 0.4067 37, 
0.4226 18, 0.4383 71, 0.453991 , 0.469472, 0.4848 10, 
0.5000 00, 0.515038, 0.5299 19, 0.5446 39, 0.5591 93, 
0.5735 76, 0.5877 85, 0.6018 15, 0.615661 f 0.629320, 
0.642788, 0.6560 59, 0.6691 31, 0.681 998, 0.6946 58, 
0.7071 07, 0.7193 40, 0.7313 54, 0.7431 45, 0.7547 10, 
0.7660 44, 0.7771 46, 0.788011 , 0.7986 36, 0.8090 17, 
0.819152, 0.8290 38, 0.838671 , 0.8480 48, 0.8571 67, 
0.8660 25, 0.8746 20, 0.8829 48, 0.891 007, 0.898794, 
0.9063 08, 0.9135 45, 0.9205 05, 0.9271 84, 0.9335 80, 
0.9396 93, 0.9455 19, 0.9510 57, 0.9563 05, 0.9612 62, 
0.9659 26, 0.9702 96, 0.9743 70, 0.9781 48, 0.9816 27, 
0.9848 08, 0.9876 88, 0.9902 68, 0.9925 46, 0.9945 22, 
0.9961 95, 0.9975 64, 0.9986 30, 0.999391 , 0.9998 48, 
1 .000000 }； 

int sign; 
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r d c 


d . 


d 1 
每 讎 

? ? 


本本本本 
//// 


d > > > 
/V d d d 

/V /l\ o /V yl\ 
8 

II II 1 II II 

n = n 
g% g 
i i 
d s d s d 


//// 
本* ♦本 



第 3 部 C ツール編 


{ float cos() ; 

return( cos( r - 1.570796 )); /* 


float tan(r) 
float r; 

{ float t,sin(},cos(); 

if( abs( t = cos(r)) <=1e-37 ) 
if(sin(r) < 0.0 ) 
return(-1e37); 
else 

return(1e37); 
return( sin(r)/t ); 


リスト 4 

/* */ 

/* Lissajous curves */ 

/* */ 

浮 define STEP 0.05 
main() 

{ 

int xO,yO,xl,y1; 

float c,r,sin(); 

ハ \ s ( ) • 

line ( ち 20, 0,320,200,0,7,0); 

line(120, 100, 520, 100, 0,7,0); 

for( c = 0.0 ; c < 6.0 ? c += 0.5 
xO = 320.0 + 200 * sin ( 0 ); 
y0 = 100.0 - 100 * sin ( c ); 
for( r = 0.0 + STEP ; r < 6.3 
xl= 320.0 + 200.0 * sin ( 
yl= 100.0 -100.0 * sin ( 
Iine(x0,y0,x1,y1,0,4,0); 
xO = xl; 
y0 = yl; 


pai/2 */ 


r += STEP ) { 
)； 

+ c ); 
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グラフィック•パッケージ （ OS -9) 


リス ト5 

/* */ 

/* console control */ 

/* by T.KANO '84.9 V 

/* */ 

main(c,adr) 
int c; 
int *adr; 

{ 

if(c == 2) { 

static struct { 
char head[4]; 
char cmd [11]; 
char tail[1]; 

} cons = { 

{0x14,0x0e,0,11}, 

{0,0,0x01 ,0,80,25,0,23,0xff,0xff,0}, 

3 

}； 

char *str; 
int i; 

str = adr[1]; 

if(str[0] == 'C' || str[0] == 'c' || 
str[0] == 1 G •丨丨 str[0] == 'g' ) { 
cons.cmd[10]= 

(str[0] == 'C' || str[0] == 'c') ? 0 ： Oxff; 

write(1,&cons,16); 
cons.cmd[7] = 25; 
cons.cmd[8] = 0; 
cons.cmd[9] = 0; 
write(1 ， & cons,16); 
str = "\n\012 M ; 
for(i=0;i<47;i++) 
write(1,str,2); 
str = "\022\ 000 \002"; 
write(1,str,3); 


リスト 6 


/* 


*/ 

/* 

change palette 

*/ 

/* 


*/ 

/* 

by T.KANO 

*/ 

/* 

'84.9.18 

*/ 


main(n,ad) 
int n; 
int *ad; 
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第 3 部 C ツール編 


char *oc , *nc ; 

if(n == 3){ 
oc=ad[1]; 
nc=ad[2 ]; 

palette(oc[0]-'0' f nc[0]-'0'); 


palette(oc,nc) 
int oc,nc; 

{ 

char *pl; 
pl= 0xfd38; 

if(oc>=0 && 〇 c<=7 && nc>=0 && nc<=7) 
pl[oc] = nc; 
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各処理系の関数一覧表 




各処理系の関数一覧表 


各処理系における，言語機能， UNIX との互換性などの確認のためにこの表 
を作成しました.ただし， C 言語は言語機能がそれほど大きくないとはいえ， 
すべての機能について作動させて確認することは極めて困難なため，基本的に 
はマニュアルや参考文献に基づいて記述しました. 

あくまでも1つの目安として利用してください.誤まりのある場合には御指 
摘いただきたいと思います. 

一覧表の見方 

一覧表の記号の意味は次のとおりです. 

〇：実際に作動を確認したもの.もしくはマニュアルに明記されているもの 
X :実際に作動しなかったもの.もしくは作動しないことが明らかなもの 
A : 類似する関数を 持つもので作動が確認されているもの 
▲:類似す る 関数を 持つもので作動が確認されていないもの 

UNIX の欄の SYS はシステムコール， RUN はランタイム.ルーチンを表し 
ています.なお，調査したシステムのバージョンは下記のとおりです. 


OPTIMIZING C 

ver. 2.10 

Lattice C 

ver. 2.0 

DeSmet C 

ver. 2.2 

BDS C 

ver. 1.5a 

MICROWARE C 

ver. 1.1.4 

Aztec CII 

ver. 1.06 
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各処理系の関数一覧表 



UNIX 

OPT. 

Lattice 

DeSmet 

巳 DS 

MICRO 

Aztec 


Ver.7 

〇 86 

〇 

〇 

C 

WARE 

〇 

CII 

frasm.endas 



X 



〇 

〇 

# define 


〇 

〇 


〇 

〇 

〇 

#else 


〇 



〇 


〇 

#endif 


〇 



〇 

〇 

〇 

井 if 


O 

〇 


〇 


〇 

#ifdef 


〇 

〇 


〇 

〇 

〇 

# ifndef 


〇 

〇 


〇 

〇 

〇 

# include 


〇 

〇 


〇 

〇 

〇 

# line 



〇 





#undef 


〇 

〇 


〇 


〇 

IBMPCks 




〇 




_inbuf 






〇 


_ memory 




〇 




more 




〇 




_os9 






〇 


_setsp 




〇 




_showsp 




〇 




abort 

RUN 

〇 




〇 


abs 

RUN 



〇 

〇 

〇 


access 

SYS 





〇 


acos 

RUN 

〇 





〇 

alarm 

RUN 







allmem 



〇 





alloc 


〇 



〇 



asin 

RUN 

〇 





〇 

assert 

RUN 
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各処理系の関数一覧表 



UNIX 

OPT. 

Lattice 

DeSmet 

BDS 

MICRO 

\ A / A DCT 

Aztec 


Ver.7 

C86 

C 

〇 

C 

WAh (ヒ 

〇 

CII 

atan 

RUN 

〇 





〇 

atan2 

RUN 

〇 





〇 

atof 

RUN 

〇 

〇 



〇 

〇 

atoi 

RUN 

〇 

▲ 

〇 

〇 

〇 

〇 

atol 

RUN 



〇 


〇 

〇 

auto 


〇 

〇 


〇 

〇 

〇 

bdos 


〇 


〇 

〇 


〇 

big 


〇 






bios 





〇 


〇 

biosh 





〇 


△ 

brk 

SYS 







calloc 

RUN 

〇 

〇 

〇 


〇 

〇 

ccall 





▲ 



ccalla 





▲ 



ceil 

RUN 

〇 





〇 

cfsize 





〇 



cgets 



〇 





chdir 

RUN 

〇 




〇 


chmod 

SYS 

〇 




〇 


chown 

SYS 







chxdir 






〇 


ci 




〇 




clearerr 

RUN 

〇 

▲ 



〇 

〇 

close 

SYS 

〇 

〇 

〇 

〇 

〇 

〇 

clrplot 





〇 



CO 




〇 
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各処理系の関数一覧表 



UNIX 

OPT. 

Lattice 

DeSmet 

BDS 

MICRO 

WARE 

Aztec 


Ver.7 

C86 

〇 

C 

〇 

c 

CII 

codend 





〇 



compact 



〇 





coreleft 


〇 






cos 

RUN 

〇 


〇 


〇 

〇 

cprintf 



〇 





cputs 



〇 





crc 






〇 


create 

SYS 

〇 

〇 

〇 

〇 

〇 

〇 

crypt 

RUN 







〇 s 




〇 




cscanf 



〇 





csts 




〇 




csw 





〇 



defdrive 






〇 


direct 






〇 


ds 




▲ 




dup 

SYS 





〇 


encrypt 

RUN 







endext 





〇 



errmsg 





〇 



errno 

SYS 




〇 



exec 

RUN 




〇 

▲ 


execl 

RUN 




〇 


〇 

execv 





〇 


〇 

exit 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

exp 


O 


〇 



〇 


209 




















































各処理系の関数一覧表 



UNIX 

OPT. 

Lattice 

DeSmet 

巳 DS 

MICRO 

Aztec 


Ver.7 

〇 86 

C 

〇 

〇 

WARE 

c 

〇 II 

expIO 




〇 




extern 


〇 

〇 


〇 

〇 

〇 

externs 





〇 



f abort 





〇 



tabs 


〇 


〇 



〇 

farcall 


〇 






fcbaddr 





〇 



fclose 

RUN 

O 

〇 

〇 

〇 

〇 

〇 

fcreate 





〇 



fdopen 

RUN 






〇 

feof 

RUN 

〇 

〇 



〇 

〇 

ferrer 

RUN 

〇 

〇 



〇 

〇 

fflush 

RUN 

〇 

〇 


〇 

〇 

〇 

fgetc 

RUN 

〇 

〇 

〇 




fgets 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

fileno 


〇 

〇 



〇 

〇 

findndtr 






〇 


findstr 






〇 


floor 

RUN 

〇 





〇 

fopen 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

fork 

RUN 





▲ 


formal 



〇 





fprintf 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

fputc 

RUN 

〇 

〇 

〇 




fputs 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

什 and 




〇 
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各処理系の関数一覧表 


\ 

UNIX 

OPT. 

Lattice 

DeSmet 

巳 DS 

MICRO 

\ A/ A D 

Aztec 


Ver.7 

〇 86 

〇 

C 

〇 

W Anc. 

c 

〇 II 

fread 

RUN 

〇 


〇 


〇 

〇 

free 

RUN 

〇 

〇 

〇 


〇 

〇 

freeall 




〇 




freemem 






〇 


freopen 

RUN 


〇 




〇 

fscanf 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

fseek 

RUN 

O 

〇 

〇 


〇 

〇 

ftell 

RUN 

〇 

〇 



〇 

〇 

ftoa 


〇 





〇 

fwrite 

RUN 

〇 


〇 


〇 

〇 

gcd 

RUN 







getc 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

getch 



〇 


〇 



getchar 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

getenv 

RUN 







getgrent 

RUN 







getime 






〇 


getlin 





▲ 



getlogin 

RUN 







getmem 



〇 





getpid 

▲ 





〇 


getpw 

RUN 







getpwent 

RUN 







gets 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

getstat 






〇 


getuid 






〇 
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各処理系の関数一覧表 



UNIX 

OPT. 

Lattice 

DeSmet 

巳 DS 

MICRO 

Aztec 

\ 

Ver.7 

C86 

〇 

〇 

〇 

WARE 

〇 

〇 II 

getval 





〇 



getw 

RUN 

〇 


〇 

〇 


〇 

index 

RUN 

〇 


〇 


〇 

〇 

initb 





〇 



initw 





〇 



inp 


▲ 



〇 


△ 

inp16 


▲ 






intrinit 


〇 






isalnum 

RUN 

〇 

〇 

〇 


〇 

〇 

isalpha 

RUN 

O 

〇 

〇 

〇 

〇 

〇 

isascii 

RUN 

〇 

〇 

〇 


〇 

〇 

isatty 

RUN 






〇 

iscntrl 

RUN 

〇 

〇 

〇 


〇 

〇 

iscsynf 



〇 





iscsynm 



〇 





isdigit 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

isgraph 



〇 





islower 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

isprint 

RUN 

〇 

〇 

〇 


〇 

〇 

ispunct 

RUN 

〇 

〇 

〇 


〇 

〇 

isspace 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

isupper 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

iswap 


〇 






isxdigit 



〇 





itoa 


〇 

▲ 





itob 


〇 
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各処理系の関数一覧表 


\ 

UNIX 

Ver.7 

OPT. 

C86 

Lattice 

〇 

DeSmet 

〇 

巳 DS 

〇 

MICRO 

WARE 

〇 

Aztec 

CII 

itom 

RUN 







kbhit 





〇 



kill 

RUN 





〇 


13tol 

RUN 





〇 


line 





〇 



link 

SYS 







Imove 




〇 




lock 

SYS 







log 

RUN 

〇 


〇 



〇 

loglO 

RUN 

〇 


〇 



〇 

longjmp 

RUN 

〇 


〇 

〇 

〇 

〇 

lower 


〇 






Iseek 

SYS 

〇 

〇 

〇 


〇 

〇 

Itell 


〇 






lto13 

RUN 





〇 


Itoa 


〇 






Itoh 


〇 






madd 

RUN 







makefcb 


〇 






malloc 

RUN 

〇 

〇 

〇 


〇 

〇 

max 





〇 



mdiv 

RUN 







medium 








min 

RUN 




〇 



mknod 






〇 


mktemp 

RUN 





〇 
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各処理系の関数一覧表 


^7 

UNIX 

OPT. 

Lattice 

DeSmet 

巳 DS 

MICRO 

Aztec 


Ver.7 

〇 86 

C 

〇 

〇 

WARE 

〇 

〇 II 

modf 

RUN 

〇 





〇 

modlink 






〇 


modload 






〇 


monitor 

RUN 







movblock 


〇 






movemem 


〇 

〇 


〇 


〇 

msub 

RUN 







mult 

RUN 







munlink 






〇 


nice 

RUN 







nlist 

RUN 







nrand 





〇 



oflow 





〇 



open 

SYS 

〇 

〇 

〇 

〇 

〇 

〇 

outp 


〇 



〇 


△ 

outp16 


〇 






pause 

RUN 




〇 

〇 


pclose 

RUN 







peek 


〇 



〇 



perror 

RUN 





〇 


pkclose 

RUN 







pkfail 

RUN 







pkopen 

RUN 







pkread 

RUN 







pkwrite 

RUN 







plot 

RUN 




〇 
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各処理系の関数一覧表 


\ 

UNIX 

Ver.7 

OPT. 

C86 

Lattice 

〇 

DeSmet 

C 

巳 DS 

C 

MICRO 

WARE 

〇 

Aztec 

〇 II 

poke 


▲ 



〇 



popen 

RUN 







pow 

RUN 

〇 


〇 



〇 

printf 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

ptrace 

RUN 







putc 

RUN 

〇 

〇 

〇 


〇 

〇 

putch 



〇 


〇 



putchar 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

puts 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

putw 

RUN 

〇 


〇 

〇 

〇 

〇 

qsort 

RUN 

〇 


〇 

〇 

〇 

〇 

rand 

RUN 



〇 

〇 


△ 

rbrk 



〇 





read 

SYS 

〇 

〇 

〇 

〇 

〇 

〇 

readln 






〇 


realloc 

RUN 

〇 


〇 



〇 

register 


〇 

X 


X 

〇 

〇 

rename 


〇 


〇 

〇 


〇 

repmem 



〇 





rewind 

RUN 


〇 

〇 


〇 


「index 

RUN 

〇 


〇 



〇 

rlsmem 



〇 





rpow 

RUN 







rstmem 



〇 





rsvstk 





〇 



rtell 






〇 
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各処理系の関数一覧表 


"^7 

UNIX 

OPT. 

Lattice 

DeSmet 

BDS 

MICRO 

Aztec 


Ver.7 

C86 

C 

〇 

〇 

WARE 

c 

CII 

sbrk 

SYS 

〇 

〇 


〇 

〇 

〇 

scanf 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

seek 





〇 



segreaa 


〇 






setbuf 

RUN 





〇 

〇 

setfcb 





〇 


△ 

setime 






〇 


setjmp 


〇 


〇 

〇 

〇 

〇 

setmem 


O 

〇 

〇 

〇 


〇 

setnbf 



〇 





setplot 





〇 



setpr 






〇 


setstat 






〇 


setuid 

RUN 





〇 


signal 

RUN 





〇 


sin 

RUN 

〇 


〇 



〇 

sitmem 



〇 





sleep 

RUN 




〇 

〇 


small 


〇 

〇 





sprintf 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

sqrt 

RUN 

〇 


〇 



〇 

srand 

RUN 



〇 

〇 



srandl 





〇 



sscanf 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

stacksize 






〇 


static 


〇 

〇 


X 

〇 

〇 
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各処理系の関数一覧表 


\ 

UNIX 

Ver.7 

OPT. 

086 

Lattice 

〇 

DeSmet 

C 

BDS 

〇 

MICRO 

WARE 

C 

Aztec 
〇 II 

stcarg 



〇 





stch i 



〇 





stci_d 



〇 





stcis 



〇 





stcisn 



〇 





stolen 



〇 





stomp 



〇 





stcmpa 



〇 





stcu_d 



〇 





stpblk 



〇 





stpbrk 



〇 





stpchr 



〇 





stpsym 



〇 





stptok 



〇 





st「cat 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

strcmp 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

strcpy 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

strhcpy 






〇 


strlen 

RUN 

〇 

〇 

〇 

〇 

〇 

〇 

strncat 

RUN 

O 


〇 


〇 

〇 

strncmp 

RUN 

〇 


〇 


〇 

〇 

strncpy 

RUN 

〇 

▲ 

〇 


〇 

〇 

stscmp 



〇 





stspfp 



〇 





swab 

RUN 







swapin 





〇 
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各処理系の関数一覧表 



UNIX 

OPT. 

Lattice 

DeSmet 

巳 DS 

MICRO 

Aztec 


Ver.7 

〇 86 

〇 

〇 

〇 

WARE 

C 

CII 

sync 

RUN 







sysint 


〇 






system 

RUN 

〇 




〇 


tan 


〇 


〇 



〇 

tell 

SYS 




〇 



textplot 





〇 



time 

RUN 







times 

RUN 







tolower 


O 

〇 

〇 

〇 

〇 

〇 

topofmem 



〇 

〇 

〇 



toupper 


〇 



〇 

〇 

〇 

tsleep 






〇 


ttyname 

RUN 







ttyslot 

RUN 







ungetc 

RUN 

〇 

〇 


▲ 


〇 

ungetch 


〇 

〇 





unlink 

SYS 

〇 

〇 

〇 

▲ 

〇 

〇 

utoa 


〇 



〇 

〇 


wait 

RUN 





〇 


wqsort 


〇 






write 

SYS 

〇 

〇 

〇 

〇 

〇 

〇 

writeln 






〇 
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